VBA Brauche mal Hilfe

Private Sub UserForm_Initialize()
Dim xlApp As Object
Dim xlWB As Object
Dim ws As Object
On Error Resume Next 'Fehlerbehandlung
Set xlApp = GetObject(, "Excel.Application")
If xlApp Is Nothing Then
Set xlApp = CreateObject("Excel.Application") 'Excel wird geöffnet
End If
'xlApp.Visible = True 'Wenn Excel angezeigt werden soll
Set xlWB = xlApp.Workbooks("C:\Users\M\Desktop\xltestmappe.xlsx")
If xlWB Is Nothing Then
Set xlWB = xlApp.Workbooks.Open("C:\Users\M\Desktop\xltestmappe.xlsx")
End If
Set ws = xlWB.Sheets("Tabelle2")
'xlApp.close 'Wenn Excel wieder geschlossen werden soll
Me.ComboBox1.Clear
For zeile = 1 To 4
Me.ComboBox1.AddItem ws.Cells(zeile, 1)
Next zeile
Me.ComboBox1.ListIndex = 4
xlWB.Close
' Excel schließen
xlApp.Quit
Set xlApp = Nothing
End Sub