Private Sub Command1_Click()
   Dim x As Control
   For Each x In Me
      If TypeOf x Is TextBox Then
         If IsNumeric(x) Then
            MsgBox x.Name & " ist numerisch!"
         Else
            MsgBox x.Name & " ist nicht numerisch!"
         End If
      End If
   Next
End Sub