2. Spalte in Combobox füllen

ich möchte in einer zweiten Spalte einer Combobox den Vorname stehen haben. In der ersten steht mein Name! Wie mach ich das mit VBA?

Gruß Hirn

Private Sub UserForm_Activate()
Dim i As Integer
i = 3
Me.TextBox1.Value = Date

Do While Range("b" & i) <> ""
Me.ComboBox1.AddItem Range("b" & i)

i = i + 1
Loop

End Sub