Case Statement 1

[dbero]

Can you help me with the below case statement? TextString is the variable, and I am looking for the letters OPT. If they exist, cI want to continue, if they don't i want to stop.

Select Case TextString
Case "OPT" 'if it doesn't contain OPT, quit

GoTo Continue
Case Else ' Other values.
GoTo Quits
End Select

Thankyou

 

[mp9]

You don't want CASE, just an If-then-else e.g.

If InStr(1, TextString, "OPT", vbTextCompare) > 0 Then
    'Contains OPT
Else
    'Doesn't contain OPT
End If

Your CASE statement doesn't work as it's looking for an exact match with OPT, rather than just containing OPT.

http://www22.brinkster.com/accessory/