Private Sub Naechstes()
  dim strline as string, strline2 as string
  Line Input #No, strline
  line input #no2, strline2
  text1.text = strline
  text2.text = strline2
  if eof(no) or eof(no2) then
    msgbox "am ende der datei"
  end if
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.