<code>Private Sub Command1_Click()
  ...
  Dim Summe1 As Long
  Dim Summe2 As Long
  Dim Summe3 As Long
 
  ...
    If FileExists(sFilename) Then
      F = FreeFile 
      Open sFilename For Input As #F 
      Line Input #F, sLine : Summe1 = Summe1 + CLng(sLine)
      Line Input #F, sLine : Summe2 = Summe2 + CLng(sLine)
      Line Input #F, sLine : Summe3 = Summe3 + CLng(sLine)
      Close #F 
    End If 
    TT = TT + 1 
  Loop 
 
  Text3.Text = CLng(Summe1)
  Text4.Text = CLng(Summe2)
  Text5.Text = CLng(Summe3)
End Sub</code>