Why not just use the InStr() function?

VB Code:
  1. If InStr(variablename, character) Then