'Used for text input boxes with float format
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