Помогите решить задачу в VBA "Температура человека"

[Versifikator]

Пожалуйста помогите!!!
Задача:
Создайте форму, состоящую из текстового поля и командной кнопки, в которой следует ввести температуру человека, значение которой ограничено верхней (42) и нижней границей (34). Если пользователь вводит нечисловую информацию или информацию, выходящую за границы, выводится соответствующее сообщение.

[Карась]

Я смотрю у тебя три темы и во всех надо чтото сверить...

Код:

Private Sub Command1_Click()

If Text1.Text = "" Then
MsgBox "Жадина, в поле ничего нет!"
Text1.SetFocus
End If

End Sub
Private Sub Command2_Click()
End
End Sub

Private Sub Text1_Change()
    Dim s As String, tmp As String, c As String
    s = Text1.Text
    tmp = ""
    Dim i As Integer
    If Len(s) > 0 Then
        For i = 1 To Len(s)
            c = Mid(s, i, 1)
            If ((c >= "a") And (c <= "z")) Or _
               ((c >= "A") And (c <= "Z")) Or _
               ((c >= "0") And (c <= "9")) Then
               tmp = tmp + c
            End If
        Next i
    End If
    Text1.Text = tmp
    Text1.SelStart = Len(Text1.Text)
End Sub

На форме две кнопки: одна для закрытия, другая проверяет пуст ли Text.
А также Text.

Вот этот кусочек:

If ((c >= "a") And (c <= "z")) Or _
               ((c >= "A") And (c <= "Z")) Or _
               ((c >= "0") And (c <= "9")) Then

И есть фильтр ввода. Например щас можно вести все латинскии буквы и цифры.
Так как обработка происходит при Text1_Change то пользователь просто несможет ввести ненужные символы.