Dim A As String                'буква
Dim B As String                'буква
Dim C As Integer             'цифра
Dim D As Integer             'цифра

 
Private Sub UserForm_Initialize()
        A = a
        B = b
        C = 4
        D = 10
    ListBoxZTV.List = Worksheets("ZatDt4").Range("?:?").Value
End Sub

Private Sub ListBoxZTVs_Click()

        If ListBoxZTVs.Text = "Корпус" Then
        A = b
        B = c
        End If
End Sub

Private Sub UserForm_Initialize()
    
    ListBoxTPpar.ColumnWidths = "30;50;30;30;30;250"
    ListBoxTPpar.List = Worksheets("TP").Range("t1:y10").Value
End Sub

Private Sub ComButGo_Click()
    ListBoxTPpar.Clear
    ListBoxTPpar.List = Rng.Value
End Sub