<code><font color=green>' Prüfen, ob Textfeld einen Inhalt hat</font>
Private Sub Text1_Change()
  Command1.Enabled = (Trim(Text1.Text) <> "")
End Sub
 
<font color=green>' Zeichen prüfen</font>
Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    <font color=green>' nur Zahlen und Komma zulassen + Backspace</font>
    Case 48 To 57, 44, 8
    Case Else
      KeyAscii = 0
  End Select
End Sub</code>