Private Sub B_ДобавитьнаЛист_Click()
    Dim LastRow As Long
    Dim objMatches As Object, objMatch As Object, temp, el, k%
    k = 0
    With CreateObject("VBScript.RegExp")
        .Global = True: .ignoreCase = False
        .Pattern = "^[A-Z]{2}\s\d{6}$"
        temp = Split(Trim(TextBox2.Value), ",")
        For Each el In temp
            k = k + 1
            If .test(el) = False Then MsgBox "Код №" & k & " не соответствует шаблону", vbCritical: Exit Sub
        Next el
    End With
    With Sheets("отчет")
          LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
          Cells(LastRow + 1, 2) = Trim(Me.TextBox2.Value)
          Range(.Cells(6, 2), .Cells(LastRow + 1, 2)).Borders.LineStyle = xlContinuous ' обрамление ячеек
    End With
Unload Me
End Sub

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  On Local Error Resume Next
  Dim i As Long
  Dim j As Long
  Static x&
  i = Len(TextBox2) + 1
  j = KeyAscii
  If i = 10 + x Then
    If j = 44 Then
      TextBox2 = TextBox2 & Chr(44)
      x = i
    End If
    KeyAscii = 0
    Exit Sub
  End If
  If i < 3 + x Then If Not IsNumeric(Chr(j)) Then TextBox2 = TextBox2 & UCase(Chr(j))
  If i = 3 + x Then If j = 32 Then TextBox2 = TextBox2 & Chr(j)
  If i > 3 + x Then If IsNumeric(Chr(j)) Then TextBox2 = TextBox2 & Chr(j)
  KeyAscii = 0
End Sub

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case 32, 44, 65 To 90
    Case 97 To 122
        KeyAscii = KeyAscii - 32
    Case Else
        KeyAscii = 0
    End Select
End Sub