Private Sub Text1_KeyPress(KeyAscii As Integer)
  Check_text
End Sub
 
Private Sub Text2_KeyPress(KeyAscii As Integer)
  Check_text
End Sub
 
Sub Check_Text
Dim Erlaubt$, aa$
Erlaubt = "0123456789.," & Chr$(8)
aa = Chr$(KeyAscii)
If aa = Chr$(44) Then aa = Chr$(46)
If InStr(1, Erlaubt, aa) = 0 Then
MsgBox ("Bitte nur Zahlen eingeben!")
KeyAscii = 0
End If
End sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)