Function EnterNumbersOnly(intKeyAscii As MSForms.ReturnInteger, MyTextBox As Object) As Integer

'                    ВВОД ТОЛЬКО ЦИФР, ЗНАК "-", ","

    On Error Resume Next
    Select Case intKeyAscii
        Case 48 To 57, 8        ' цифры 0 - 9 и <Backspace> (эти символы всегда разрешены)
            EnterNumbersOnly = intKeyAscii
            If Not (IsNumeric(Left(MyTextBox.Value, MyTextBox.SelStart) & Chr(EnterNumbersOnly) _
                        & Right(MyTextBox.Value, Len(MyTextBox) - MyTextBox.SelStart))) Then
                EnterNumbersOnly = 0        ' проверка на предмет типо- 12%3 или 1-23
                Shell "Cmd.exe /c echo " & Chr(7), vbHide
            End If
        Case 44, 46        ' обработка десятичного разделителя (44 - код запятой, 46 - код точки)
            EnterNumbersOnly = Asc(Application.DecimalSeparator)        'Меняем разделитель на системный
            If InStr(1, MyTextBox.Text, Application.DecimalSeparator) Then
                EnterNumbersOnly = 0        ' вторую запятую нельзя
                Shell "Cmd.exe /c echo " & Chr(7) & Chr(7), vbHide
            End If
        Case 45        ' дефис (минус перед числом)
            If InStr(1, MyTextBox.Text, "-") Then
                EnterNumbersOnly = 0        ' второй минус нельзя
                Shell "Cmd.exe /c echo " & Chr(7), vbHide
            Else
                MyTextBox.Text = "-" & MyTextBox.Text
                EnterNumbersOnly = 0
            End If
        Case Else
            EnterNumbersOnly = 0        ' остальные символы запрещены
            Shell "Cmd.exe /c echo " & Chr(7), vbHide
    End Select
End Function

Private Sub TextBox1_Change()
    If IsNumeric(Me.TextBox1.Text) Then
        Sheets("Лист1").Range("A1") = TextBox1
    Else
        Me.TextBox1.Text = Val(Me.TextBox1.Text)
    End If
End Sub

Private Sub TextBox2_Change()
        If IsNumeric(Me.TextBox1.Text) Then
            Sheets("Лист1").Range("A2") = TextBox2
        Else
            Me.TextBox2.Text = Val(Me.TextBox2.Text)
        End If
End Sub

Sub UserForm_Initialize()
With Sheets("Лист1")
    Me.TextBox1.Value = .Range("A1").Value
    Me.TextBox2.Value = .Range("A2").Value
    Me.Label3.Caption = "СУММ(A1:A2) = " & Format(.Range("A3"), "0.00")
    Me.Label4.Caption = "A1 + A2 = " & Format(.Range("A4"), "0.00")
End With
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    UFI 'Запускаем проверку изменений в таблицах для получения актуальных данных в диалоговом окне.
End Sub

Sub UFI()
   UserForm1.UserForm_Initialize
End Sub

{=СУММ(ЗНАЧЕН(A1:A2)) }

=СУММПРОИЗВ(--A1:A2)