Не работает код ограничения диапазона в textbox

[kuklp]

Следите за тем, что вставляете в ответы. Должна стоять русская раскладка клавиатуры. Попробуйте:

Private Sub calc_Click()
    Select Case presstxt.Value
    Case 899 To 1013
        tempr.SetFocus
    Case Else: Cancel = True
    End Select
    If Trim(presstxt.Text) = "" Then
        Dim Answer
        Dim Message
        Dim ButtonsAndIcon
        Dim Title
        Message = "Введите значение давления!"
        ButtonsAndIcon = vbInformation
        Title = "Ошибка!"
        Answer = MsgBox(Message, ButtonsAndIcon, Title)
        presstxt.SetFocus
    ElseIf (CLng(presstxt.Text) < 899) Or (CLng(presstxt.Text) > 1013) Then
        presstxt.Value = ""
        Dim Answer1
        Dim Message1
        Dim ButtonsAndIcon1
        Dim Title1
        Message1 = "Диапазон давления от 899 до 1013 миллибар!"
        ButtonsAndIcon1 = vbInformation
        Title1 = "Ошибка!"
        Answer1 = MsgBox(Message1, ButtonsAndIcon1, Title1)
        Cancel = True
        presstxt.SetFocus
    End If
End Sub

Правда, мой код выглядит лучше Вашего? И читается.