Public Function NurZahlen(ByVal Text As String) As Boolean
  For i = 0 To Text.Length - 1
    If Not "0123456789".Contains(Text.Chars(i)) Then
      Return False
    End If
  Next
  Return True
End Function

If NurZahlen(sName) Then
  ' ...
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de