I am checking whether a Name textbox starts with Mr. Mrs. Ms. etc.
I created a function but I am not able to compare more than one string.
Here is my code.
Pass strFind as group of strings seperated by a delimiter ex:-
FindString(LCase(Me.gname.Value), LCase("Mr;Mrs;Ms;Dr"))
Now split them and compare using a loop.
Arr = Split(strFind,";")
Flag = 0
For Each str in Arr
If InStr(strCheck, str) > 0 Then
Flag = 1
End If
Next
If Flag = 1 Then
FindString = True
Else
FindString = False
End If