Private Sub ObjektBelegen(lstListBox As ListBox, sArray() As String, inhalt As _
  String)
    Dim lstObject As ListBox
    Dim i As Integer
 
    Set lstObject = lstListBox
 
    For i = 0 To UBound(sArray())
        lstObject.AddItem inhalt, i
    Next i
End Sub

ObjektBelegen Form1.lstDefinition1, aTemp(), "Test"]