Private Sub Text1_Change()
Dim x As Long
Dim z As Boolean
Dim y As Boolean
Dim a As Long
If Text1.SelStart =  0  Then Else a = Len(Text1) - Text1.SelStart
y = False
For x =  1  To Len(Text1)
z = False
Select Case Mid(Text1, x,  1 )
Case "."
Text1.Text = Replace(Text1.Text, ".", ",")
z = True
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", ","
z = True
End Select
If z = True Then
Label2.Caption = ""
Else
y = True
    If Len(Text1) =  1  Then
    Text1.Text = ""
    ElseIf x =  1  Then
    Text1.Text = Mid(Text1,  2 , Len(Text1) -  1 )
    ElseIf x = Len(Text1) Then
    Text1.Text = Mid(Text1,  1 , x -  1 )
    ElseIf Len(Text1) >  2  Then
    Text1.Text = Mid(Text1,  1 , x -  1 ) & Mid(Text1, x +  1 , Len(Text1) - x)
    End If
Exit For
End If
Next x
If y = True Then Label2.Caption = "Вводить можно только цифры!!!"
Text1.SelStart = Len(Text1.Text) - a
End Sub