Public Sub TestUserDatenLaden()
        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlMappe As Workbook
 
        Dim filePath As String
        filePath = System.AppDomain.CurrentDomain.BaseDirectory
 
        Dim i As Integer
        xlApp = New Microsoft.Office.Interop.Excel.Application
        xlApp.Visible = False
        xlMappe = xlApp.Workbooks.Open(Filename:=filePath & _
          "\TestUserDaten.xlsx", Password:="xxxxxx") 
        xlBlatt = CType(xlMappe.Worksheets("Tabelle1"), Worksheet)
        mainform.ComboBox7.Items.Clear()
        For i = 1 To 20
            xlZelle = xlBlatt.Range("A" & i)
            mainform.ComboBox7.Items.Add(xlZelle.Text)
        Next
        mainform.ComboBox7.SelectedIndex = 0
    End Sub