Devi utilizzare il componente Microsoft Form 2.0 Object library
e questo è un esempio trovato in rete:

codice:
Combo1.Clear 
Combo1.ColumnCount = 2 
Combo1.ListWidth = "6 cm" 'Total width 
Combo1.ColumnWidths = "2 cm;4 cm" 'Column widths 
Combo1.AddItem "Text in column 0" 
Combo1.List(0, 1) = "Text in column 1"
Ciao