Find a ! in a string

[fallnwrld]

Please tell me there is a shorter/cleaner way? Basically if ! is in a text box or string.... let the msgbox come up.

For FindCommand = 1 To Len(StringName)
If Mid$(StringName, FindCommand, Len("!")) = "!" Then
msgbox "It's In there!"
Exit For
End If
Next FindCommand