Private Sub Form_Activate()
 
 
       Do
 
            On Error Resume Next
 
              Verzoegerung 0.1
 
            	Open "Pfad\Datei.dat" For Input As #2
              		  Line Input #2, DerKommentar
          		 text1.text = DerKommentar
 
              Close #2
 
       Loop Until Command4 = 1
 
End sub