Function EndsWith (Haystack As String, Needle As String ) As Boolean
Dim lenStr As Integer
lenStr = Len(Needle)
If Mid(Haystack , Len(Haystack )-(lenStr-1)) = Needle Then
EndsWith = True
Else
EndsWith = False
End If
End Function
Usage:
Msgbox EndsWith("Stranger", "er")
Result: true
Or you can write:
ReplyDeleteFunction EndsWith (Haystack As String, Needle As String ) As Boolean
EndsWith = Mid(Haystack , Len(Haystack ) - (Len(Needle) - 1)) = Needle
End Function