Public Sub txtBoxUnsignedFloat(Text As String, KeyAscii As Integer)
 
    Select Case KeyAscii
        Case vbKeyBack, vbKey0 To vbKey9
        Case 44, 46
            Dim delimeter As Variant
            delimeter = InStr(Text, Chr$(44))
            If delimeter <> 0 Or delimeter <> Null Then
                KeyAscii = 0
            Else
                KeyAscii = 44
            End If
        Case Else
            KeyAscii = 0
    End Select
 
End Sub

Private Sub txtExample_KeyPress(KeyAscii As Integer)
  txtBoxUnsignedFloat txtExample, KeyAscii
End Sub

Gruß
Dirk

--
?Get it right the first time