Private Sub CommandButton1_Click()
    Dim NAME, i, R, A() As String, M() As String, FD() As String, T, U, S
    Dim OD: Set OD = CreateObject("Scripting.Dictionary")
    FD = Split("Номер=,Дата=,Сумма=,НазначениеПлатежа=", ",")
    For R = 0 To UBound(FD)
        OD(FD(R)) = ""
    Next R
    NAME = ActiveWorkbook.Path & "\test.txt"
    'массив документов
    A = Split(CreateObject("Scripting.FileSystemObject").Getfile(NAME).OpenasTextStream(1).ReadAll, "СекцияДокумент")
    For i = 1 To UBound(A)
        M = Split(A(i), vbNewLine)
        S = Replace(M(0), "=", "")
        For R = 1 To UBound(M)
            If InStr(1, M(R), "=") > 0 Then
                T = Split(M(R), "=")(0) & "="
                If OD.exists(T) Then
                    OD(T) = Split(M(R), "=")(1)
                End If
            End If
        Next R
        Call WriteDataToCells(CStr(OD("Номер")), CStr(OD("Дата")), CStr(OD("Сумма")), CStr(OD("НазначениеПлатежа")))

        Next i
End Sub

Sub WriteDataToCells(Номер As String, Дата As String, Сумма As String, НазначениеПлатежа As String)
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Лист1") ' Замените Лист1 на нужное название листа

    'Запись данных в определенные ячейки рабочего листа
    ws.Range("A1").Value = Номер
    ws.Range("B1").Value = Дата
    ws.Range("C1").Value = Сумма
    ws.Range("D1").Value = НазначениеПлатежа
End Sub

Sheets("Лист1").Range("A1").Value = Me.TextBox1

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    txt = Me.TextBox3    ' читаем текст из поля (для недопущения ввода двух и более запятых)
    If InStr(1, txt, ",") > 0 And Len(txt) - InStr(1, txt, ",") = 5 Then KeyAscii = 0  ' только 5 цифр после запятой
    
    Select Case KeyAscii
        Case 8:    ' нажат Backspace - ничего не делаем
        Case 44: KeyAscii = IIf(InStr(1, txt, ",") > 0, 0, 44)    ' если запятая уже есть - отменяем ввод символа
        Case 46: KeyAscii = IIf(InStr(1, txt, ",") > 0, 0, 44)    ' заменяем при вводе точку на запятую
        Case 48 To 57    ' если введена цифра  - ничего не делаем
        Case Else: KeyAscii = 0    ' иначе отменяем ввод символа
    End Select
End Sub

Private Sub TextBox3_Change()
        'изменение в Тариф
    Sheets("Показания").Range("D5").Value = Me.TextBox3
End Sub

Private Sub UserForm_Initialize()
         'отобразить в Текстбокс3 данные ячейки D5 Тариф
    Me.TextBox3 = Sheets("Показания").Range("D5").Value
End Sub