如何样在TEXT1.TEXT只能输入一次“.”

怎么样在TEXT1.TEXT只能输入一次“.”
怎么样在TEXT1.TEXT只能输入一次“.”
其他的“.”不要
比如5...3     5.35.35
只能是5.3     5.3535

[解决办法]
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc( ". ") Then
If Len(Text1.Text) - Len(Replace(Text1.Text, ". ", " ")) > 0 Then KeyAscii = 0
End If
End Sub

[解决办法]
要控制text1(0).text index=0
要控制text1(1).text index=1
要控制text1(2).text index=2
要控制text1(3).text index=3
....
在这里改：If KeyAscii = Asc( ". ") And Index = 0 Then