请问怎样限定文本框只能数字和一个小数点
一个文本框，怎么样限定它只能输入数字和一个小数点，在这个坛子里搜索到一些类似的问题和解决办法，不过都不完全

一般是解决只能输入数字和小数点和删除键，但是却不能解决只能输入一个小数点的情况，比如我输入 10.. 时程序立即报错，要的效果是 不能输入两个 . 号才行

这个问题怎么解决？谢谢！

[解决办法]
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("-")
If Text1.SelStart = 0 Then
If Left(Text1.Text, 1) = "-" Then
KeyAscii = 0
Beep
End If
Else
KeyAscii = 0
Beep
End If
Case 8

Case Asc(" ")
If Text1.SelLength = 0 Then
KeyAscii = 0
End If
Case Asc(".")
If InStr(Text1.Text, ".") Then
KeyAscii = 0
End If
Case Is < Asc(0) '48
KeyAscii = 0
Case Is > Asc(9) '57
KeyAscii = 0
End Select
End Sub