Estou tentando adaptar essa rotina criada pelo Mauro ou JoseVb para um listbox com 2 colunas.

Private Sub CommandButton1_Click()

Me.ComboBox1.Clear
Dim OCOLLECTION As New Collection
Dim VARVALUE As Variant
Dim I, ULTLINHA As Long

ULTLINHA = Plan1.Range("A65536").End(xlUp).Row
On Error Resume Next
    For Each VARVALUE In Plan1.Range("A2:A" & ULTLINHA)
        OCOLLECTION.Add (VARVALUE), (VARVALUE)
    Next

For I = 1 To OCOLLECTION.Count
        ComboBox1.AddItem OCOLLECTION.Item(I)
    Next

End Sub

Fonte: viewtopic.php?f=23&t=2110

Alguém saberia me dizer se é possivel e como fazer ?