Как научить кнопку распозновать, то, что написано в TextBox

[Assassin.Snake]

'Вопрос
If txtQN.Text >= 1 And txtQN.Text <= 20 Then
If sh > 1 Then btnBack.Enabled = True
If sh = 1 Then btnBack.Enabled = False
If sh < 20 Then btnNext.Enabled = True
If sh = 20 Then btnNext.Enabled = True

ElseIf txtQN.Text = (Что здесь нужно написать, что бы он распозновал текст в текстовом поле или число? Текст от А-Я, а-я, A-Z, a-z) Then
MsgBox "Такого номера вопроса не существует!", vbCritical, "Ошибка"
Else
MsgBox "Такого номера вопроса не существует!", vbCritical, "Ошибка"
End If

[dr.MIG]

Для начала зацени функцию IsNumeric.

[Assassin.Snake]

Наверно дуранцкий вопрос:
А куда мне её подставить?
И чем она мне может помочь?

[arvitaly]

Код: Выделить всё

'This project needs a TextBox
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = (-16)
Const ES_NUMBER = &H2000&
Public Sub SetNumber(NumberText As TextBox, Flag As Boolean)
    Dim curstyle As Long, newstyle As Long

    'retrieve the window style
    curstyle = GetWindowLong(NumberText.hwnd, GWL_STYLE)

    If Flag Then
       curstyle = curstyle Or ES_NUMBER
    Else
       curstyle = curstyle And (Not ES_NUMBER)
    End If

    'Set the new style
    newstyle = SetWindowLong(NumberText.hwnd, GWL_STYLE, curstyle)
    'refresh
    NumberText.Refresh
End Sub
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net

    SetNumber text1, True
    Me.Caption = "Now, try typing some letters into the textbox"
End Sub

[Assassin.Snake]

arvitaly - спасибо.