'Laden der Telefonliste der Exceldatei'
        Dim Excel As Object
        Dim i As Object
 
 
 
        If Dir(Application.UserAppDataPath & "\Telefonbuch.xls") <> "" Then
            Excel = CreateObject("Excel.Application")
            Excel.Visible = False
            Excel.Workbooks.Open(Application.UserAppDataPath & ( _
              "\Telefonbuch.xls"))
 
 
            'Die Items im ListView anzeigen lassen'
            ListView1.View = View.Details
 
 
            'Die Überschriften und die Breite, sowie die Anordnung der Spalten'
            ListView1.Columns.Add("Name", 170, HorizontalAlignment.Left)
            ListView1.Columns.Add("Telefonnummer", 170, _
              HorizontalAlignment.Left)
            For i = 1 To 6000
                If Not Excel.Range("A" & CStr(i)).Value = "" Then
                    ListView1.Items.Add(Excel.Range("A" & CStr(i)).Value)
                    ListView1.Items.Add(Excel.Range("B" & CStr(i)).Value)
                Else
                    Exit For
                End If
            Next i
        Else
            MsgBox(Application.UserAppDataPath & "\Telefonuch.xls", vbCritical, _
              "Die Datei ist nicht vorhanden:")
        End If
    End Sub