Dim TextLine As String, ff As Integer
ff = FreeFile ' Nächste verfügbare Dateinummer
Open "test.txt" For Input As #ff ' Testdatei öffnen
Do While Not EOF(ff) ' Solange das Dateiende nicht erreicht ist
   Line Input #ff, TextLine ' nächste Zeile der Datei in TextLine speichern
   Msgbox InputData
Loop
Close #ff ' Datei schließen

Den Code musst Du im Click-Ereignis des Command-Button unterbringen.
ciao
Elwood