Private Sub txt_Штрих_Change()

    Dim oRow As Integer
    Dim aRow As Integer
    
    With Me.txt_Штрих
        If IsNumeric(.Text) And Len(.Text) < 14 Then
            .Text = IIf(Right(.Text, 1) = "." Or Right(.Text, 1) = ",", Left(.Text, Len(.Text) - 1), .Text)
        Else
            On Error Resume Next
            .Text = Left(.Text, Len(.Text) - 1)
        End If
    End With
    If Len(Me.txt_Штрих) = 5 Then
        On Error Resume Next
        With Worksheets("Сводная")
          oRow = .Columns("G:K").Find(what:=Me.txt_Штрих.Text).Row  'номер найденной строки
          If Err.Number <> 0 Then
              MsgBox prompt:="Неверный штрих-код!", Title:="Штрих-код"
          Else
              Me.txt_Название.Text = .Cells(oRow, 1).Value
              Me.txt_ФИО.Text = .Cells(oRow, 2).Value
              Me.txt_Машина.Text = .Cells(oRow, 3).Value
              Me.txt_Пункт.Text = .Cells(oRow, 4).Value
          End If
        End With
    End If
    If Len(Me.txt_Штрих) = 5 Then
        On Error Resume Next
        With Worksheets("Лист1")
        aRow = .Columns("A:A").Find(what:=Me.txt_Штрих.Text).Row  'номер найденной строки
        If Err.Number <> 0 Then
            MsgBox prompt:="Неверный штрих-код!", Title:="Штрих-код"
        Else
            Me.TextBox1.Text = .Cells(aRow, 3).Value
            Me.TextBox2.Text = .Cells(aRow, 4).Value
        End If
        End With
    End If
End Sub