オレならこうするな。

Private Sub Combo(ByRef cbo As ComboBox)
　　cbo.Items.Add 〜
End Sub