スキルアップ・問題解決なら、モーグにおまかせ！

コンボボックスのリストには、複数の列を表示することが可能です。
次のサンプルでは、リストに2列表示させる処理を、フォームが表示される時に発生するイベント「Open」で行っています。
また、TextColumnプロパティで、Textプロパティに格納する値（リストで選択された値が表示されるテキストボックスの値）を、2列目の値が表示されるようにしています。

Private Sub UserForm_Initialize()
    Dim myArray() As Variant
    Dim i         As Integer

    With ComboBox1
        .ColumnCount = 2                '表示列数の設定
        .TextColumn = 2                 '表示列の設定
        
        ReDim Preserve myArray(10, 1)
        
        For i = 1 To 10
            '1列めの項目
            myArray(i - 1, 0) = "1列目の" & i
            '2列め項目
            myArray(i - 1, 1) = "2列目の" & i
        Next i
        
        .List() = myArray()
        
    End With

End Sub