Private Sub OpenFile_Click()
'öffnen der TXT Datei 
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not (EOF(1))
    Line Input #1, Description
    'übergeben der kompletten Zeile in die Combobox
    Insert_MB.AddItem Description
Loop
 
Close #1
End Sub