Sub Main()

     Dim i As Integer
     Dim j As Integer

     i = 0

     With MainUserForm
          With .ListBox
               If .TextBox.Value = "" Then
                    .Clear
               Else: For Each Item In ItemsRange
                    For Each Number In NumbersRange
                         If Item = Number Then
                              .AddItem
                              For j = 1 To .ColumnCount
                                   .List(i, j - 1) = Item.Offset(0, j - 5)
                              Next
                              .List(i, 4) = Item
                              i = i + 1
                              j = j + 1
                         End If
                    Next
               Next
               End If
          End With
     End With

End Sub

MainUserForm.TextBox.Value

void functionName() {
}

int functionName() {
}

Sub PickAName_Click()
     Dim CleanName As String
     Dim SourceCell As Range
     Dim NameCell As Range
     Set SourceCell = ActiveWorkbook.Sheets("Лист1").Cells(1, 1)
     CleanName = Mid(SourceCell, InStr(SourceCell, """") + 1, Len(SourceCell) - 1)
     Set NameCell = ActiveWorkbook.Sheets("Лист1").Cells(1, 2)
     NameCell.Value = CleanName
Sub

MyList = Array("Маша", "Лена", "Петя", "Саша")

With ComboBox
     .List = MyList
     .Value = MyList(0)
End With

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim country As Variant
    Dim countryList As Range
    i = 0
    country = TextBox1.Value
    Set countryList = Worksheets("Лист2").Range("C1").End(xlDown)
    For Each Cell In countryList
        If Cell.Value = country Then
            Cell.Offset(0, -2).Value = Worksheets("Лист1").Cells(1 + i, 1).Value
            Cell.Offset(0, -1).Value = Worksheets("Лист1").Cells(1 + i, 2).Value
        End If
        i = i + 1
    Next
End Sub

IF(Лист2.$C$2:$C$10=A2;CONCATENATE(Лист2.$A$2:$A$10;" - ";Лист2.$B$2:$B$10);"Выбрать из списка")