Author  

Language  

Operating Systems  

Option Explicit

' Add this to any .bas file:

Public Function OnlyNumericTextInput(ByVal strSource As String, _
    Optional strExtra As String = "") As Integer
    '* Place this Line in the Textbox_KeyPress event

    Dim strTemper As String
    Const strNormNumbers$ = "0123456789"

    If strExtra > "" Then
        strTemper = strNormNumbers$ & strExtra
    Else
        strTemper = strNormNumbers$
    End If
    '* BackSpace = 8
    If strSource <> 8 Then
        If InStr(strTemper, Chr(strSource)) = 0 Then
            OnlyNumericTextInput = 0
            Exit Function
        End If
    End If
    OnlyNumericTextInput = strSource
End Function

Option Explicit

'Usage:
Private Sub text1_KeyPress(KeyAscii As Integer)

    If OnlyNumericTextInput(KeyAscii, ".") = 0 Then
        Beep
        KeyAscii = 0
    End If
End Sub