文本框只支持数字、小数点、退格符、负号、Del键

Public Function OnlyNumberAndDot(inKeyAscii As Integer) As Integer
'函数说明：文本框只支持数字、小数点、退格符、负号、Del键
'入口说明：
' inKeyAscii 'Text 控件的 KeyPress 事件的 KeyAscii 参数

'出口说明：
'返回值：inKeyAscii

If inKeyAscii < 48 Or inKeyAscii > 57 Then '选取范围之内的
If (inKeyAscii <> 46) And (inKeyAscii <> 8) And (inKeyAscii <> 45) And (inKeyAscii <> 127) Then
inKeyAscii = 0
End If
End If

OnlyNumberAndDot = inKeyAscii
End Function