Function LimitTextInput(source) 
as
 String
'put the next line in the Textbox_KeyPress event
'KeyAscii = LimitTextInput(KeyAscii)
    
    'change Numbers with any other character
    Const Numbers$ = "0123456789."
    
    'backspace =8
    If source <> 8 Then
        If InStr(Numbers, Chr(source)) = 0 Then
            LimitTextInput = 0
            
exit
 Function
        
end
 If
    
end
 If
    LimitTextInput = source
    
End Function