String Array Error

[DataBlake]

Sub test()
Dim textVAR(0 To 5) As String
Dim i as Long

textVAR(0) = "Do"
textVAR(1) = "Re"
textVAR(2) = "Me"
textVAR(3) = "Fa"
textVAR(4) = "So"
textVAR(5) = "La"

For i = LBound(textVAR) To UBound(textVAR)

If textVAR = "Do" Then
msgbox textVAR
Else
msgbox "Nope"
End If

next i
End Sub

if i pull textVAR into the watch window it shows value as "Can't compile module" and type "Empty"
its highlighting the = on the if statement with type mismatch error

 

[DanteAmor]

You must indicate the index

Sub test()
  Dim textVAR(0 To 5) As String
  Dim i As Long
  textVAR(0) = "Do"
  textVAR(1) = "Re"
  textVAR(2) = "Me"
  textVAR(3) = "Fa"
  textVAR(4) = "So"
  textVAR(5) = "La"
  For i = LBound(textVAR) To UBound(textVAR)
    If textVAR[B][COLOR=#ff0000](i)[/COLOR][/B] = "Do" Then
      MsgBox textVAR[B][COLOR=#ff0000](i)[/COLOR][/B]
    Else
      MsgBox "Nope"
    End If
  Next i
End Sub

 

[Fluff]

Because textVAR is an array you cannot use

If textVAR = "Do" Then

I suspect you mean

If textVAR(i) = "Do" Then

you'll need to add that to the next line as well

 

[DataBlake]

thank you both for the replies
it's been a day

 

[Fluff]

Glad we could help & thanks for the feedback

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.