how do i use IndexOf

[RuthandAndy]

I am attempting to use IndexOf with no luck. I have defined my variable as a string. I thought I could then use the methods of the string class, but get errors when I try varname.IndexOf("strchars"). Is there something else that I need to do?

 

[Scott Huish]

There is no such keyword in VBA. That looks like JavaScript.

 

[RuthandAndy]

That must be why it didn't work. Thanks

 

[Scott Huish]

InStr is the VBA function you want to look at.

I made a UDF to emulate IndexOf in this example, and a test sub:

Function IndexOf(r As String, searchchar As String) As Long
IndexOf = InStr(r, searchchar) - 1
End Function
 
Sub test()
Dim teststring As String, searchc As String, r As Long
teststring = "[EMAIL="vanilla@chocolate.com"]vanilla@chocolate.com[/EMAIL]": searchc = "@"
r = IndexOf(teststring, searchc)
If r > -1 Then
    MsgBox r
Else
    MsgBox "Text Not Found"
End If
End Sub

 

[RuthandAndy]

Thanks for your help.