MSForms.ComboBox an Prozedur übergeben

Sub durchsucheAuswahl(meineBox As MSForms.ComboBox, strBlatt As String, strSpalte As String,  _
intStartZeile)
Dim blnEnde As Boolean
Dim i As Long
blnEnde = False
With ThisWorkbook.Worksheets(strBlatt).Range(strSpalte & intStartZeile)
Do While blnEnde = False
Call ergaenzeBox(meineBox, .Offset(i, 0).Value)
i = i + 1
If .Offset(i, 0).Value = "" Then blnEnde = True
Loop
End With
End Sub

Call durchsucheAuswahl(cboServer, strBlattAbfragen, "I", intBlattAbfragenStartZeile)