Контроль корректности ввода числа в TextBox - VB

Формулировка задачи:

Добрый день! Напишите, пожалуйста, код для проверки элемента textbox на число. Если этот элемент не является числом, то программа должна выдавать предупреждение! Спасибо!

Решение задачи: «Контроль корректности ввода числа в TextBox»

textual
                            Листинг программы 
                        

                            Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim s$
    s = TextBox1.Text
    'Г…Г±Г«ГЁ   Г¶ГЁГґГ°Г*              ГЁГ«ГЁ  Backspace   ГЁГ«ГЁ   Г¬ГЁГ*ГіГ± Гў ГЇГҐГ°ГўГ®Г© ГЇГ®Г§ГЁГ¶ГЁГЁ
    If IsNumeric(Chr(KeyAscii)) Or KeyAscii = 8 Or KeyAscii = 45 And TextBox1.SelStart = 0 Then
  'ГІГ® Г*ГЁГ·ГҐГЈГ® Г*ГҐ Г¤ГҐГ«Г*ГҐГ¬
    ElseIf KeyAscii = 46 Or KeyAscii = 44 Then
       KeyAscii = 44 '44, 46 - Г§Г*ГЇГїГІГ*Гї ГЁГ«ГЁ ГІГ®Г·ГЄГ*, Г±Г®ГЈГ«Г*Г±Г*Г® Г*Г*Г¶ГЁГ®Г*Г*Г«ГјГ*Г»Г¬ Г*Г*Г±ГІГ°Г®Г©ГЄГ*Г¬ Г±ГЁГ±ГІГҐГ¬Г»
       If InStr(s, Chr(KeyAscii)) > 1 Then KeyAscii = 0 'Г§Г*ГЇГ°ГҐГІ ГЇГ®ГўГІГ®Г°ГҐГ*ГЁГї Г°Г*Г§Г¤ГҐГ«ГЁГІГҐГ«Гї
       If Len(s) = 0 Then KeyAscii = 0 'Г§Г*ГЇГ°ГҐГІ Г«ГЁГ¤ГЁГ°ГіГѕГ№ГҐГЈГ® Г°Г*Г§Г¤ГҐГ«ГЁГІГҐГ«Гї
    Else 'Г®ГІГ¬ГҐГ*ГїГҐГ¬ ГўГўГ®Г¤
       KeyAscii = 0
    End If
End Sub
                        