Public Function CheckValidChars(ByVal text As String) As Integer
      Dim match = Regex.Match(text, "[^a-zA-Z0-9/\-\\?:().,\'+ ]")
 
      If match.Success Then Return match.Index + 1
 
      Return -1
   End Function