Private Const ValidChars As String = _
     "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789/-?:().,'+ "
 
   Public Function CheckValidChars(ByVal TextToCheck As String) As Integer
      For Each c As Char In TextToCheck.ToCharArray
         If Not ValidChars.Contains(c) Then
            Return TextToCheck.IndexOf(c) + 1
         End If
      Next
      Return 0
   End Function

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control