Flere kolonner i ComboBox

Hej Alle,

Jeg har et lille regneark, hvor jeg har lavet nogle UserForms til hjælp for brugerne.

I en af UF'erne har jeg en ComboBox, der henter sine Items fra regnearket:

Private Sub UserForm_Initialize()

  Set ark = ThisWorkbook.Worksheets("Ark1")
 
  raekke = 1
 
  While ark.Cells(raekke, 1).Value <> ""
    raekke = raekke + 1
  Wend
 
    With Me.ComboBox1
        .Clear
        For i = 1 To raekke
            .AddItem ark.Cells(i, 1)
        Next i
        .ListIndex = 0
    End With
End Sub

Jeg har nu brug for dels at lave 2 kolonner i Combo'en dels at hente data ind i disse. Jeg har prøvet at sætte ColumnCount = 2 i Properties på Combo'en og med følgende kode:

Private Sub UserForm_Initialize()

  Set ark = ThisWorkbook.Worksheets("Ark1")
 
  raekke = 1
 
  While ark.Cells(raekke, 1).Value <> ""
    raekke = raekke + 1
  Wend
 
    With Me.ComboBox1
        .Clear
        For i = 1 To raekke
            .AddItem[0] ark.Cells(i, 1)
            .AddItem[1] ark.Cells(i, 2)
        Next i
        .ListIndex = 0
    End With
End Sub

Jeg får så en fejl og besked om at der ikke kan compiles

Nogen gode råd?

René