ник: Maksimilian
И еще следующее ограничение на ввод символов в поле:
rivate Sub Уклон_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 48 To 57 ' <Backspace> и цифры
Case 44, 46 ' запятая (44) и точка (46)
If Len(Уклон.Text) = 0 Then
' запятая не может быть первым сиволом
KeyAscii = 0
Else
If KeyAscii = 46 Then
' заменим точку запятой
KeyAscii = 44
End If
' проверим, введена ли запятая
If InStr(1, Уклон.Text, ",") <> 0 Then
' запятая уже введена
' вторая не нужна
KeyAscii = 0
End If
End If
Case Else
' прочие символы запрещены
KeyAscii = 0
End Select
End Sub