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

If Not IsNumeric(Text1.Text) Then
      MsgBox "Не число"
      End If

Private Sub Text1_Change()
On Error Resume Next
        With Text1
           If Not IsNumeric(.Text) Then
            'MsgBox "Не число" ' это лучше убрать, а то раздражает
            .Text = Left(.Text, .SelStart - 1) & Mid(.Text, 1 + .SelStart)
            End If
        End With
End Sub

Private Sub Text1_Change()
On Error Resume Next
        With Text1
           If Not IsNumeric(.Text) Then
            'MsgBox "Íå ÷èñëî" ' ýòî ëó÷øå óáðàòü, à òî ðàçäðàæàåò
            ss = .SelStart
            .Text = Left(.Text, .SelStart - 1) & Mid(.Text, 1 + .SelStart)
            .SelStart = ss - 1
            End If
        End With
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim s$
s = Text1.Text
'Если   цифра              или  Backspace   или   минус в первой позиции
If IsNumeric(Chr(KeyAscii)) Or KeyAscii = 8 Or KeyAscii = 45 And Text1.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

Private Sub Text1_Change()
On Error Resume Next
        With Text1
           If Not IsNumeric(.Text) Then
            'MsgBox "Не число" ' это лучше убрать, а то раздражает
            .Text = Left(.Text, .SelStart - 1) & Mid(.Text, 1 + .SelStart)
            End If
        End With
End Sub

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