<code>Public Function IsString(ByVal sText As String) As Boolean
  <font color=green>' Prüft, ob die Zeichenkette nur Buchstaben und Zahlen 
  ' enthält</font>
  Dim I As Integer
  Const Check = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 "
 
  IsString = True
  sText = UCase$(sText)
  For I = 1 To Len(sText)
    If InStr(Check, Mid$(sText, I, 1)) = 0 Then
      <font color=green>' String enthält "fremdes" Zeichen</font>
      IsString = False: Exit For
    End If
  Next I
End Function</code>