'Private i As Integer
    'Private shortWert As Short
 
    Dim Str As FileStream
    Dim StreamW As StreamWriter
 
    Private Sub btnAufzeichnungStarten_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles btnAufzeichnungStarten.Click
        OpenFile()
        Timer2.Enabled = True
    End Sub
 
    Private Sub OpenFile()
        If Str IsNot Nothing Then
            Str.Close()
            Str = Nothing
        End If
 
        If File.Exists(CurDir() & "\Datei.txt") Then
            Str = New FileStream(CurDir() & "\Datei.txt", FileMode.Truncate, _
              FileAccess.Write, FileShare.None)
        Else
            Str = New FileStream(CurDir() & "\Datei.txt", FileMode.CreateNew, _
              FileAccess.Write, FileShare.None)
        End If
 
        If StreamW IsNot Nothing Then
            StreamW.Close()
            StreamW = Nothing
        End If
        StreamW = New StreamWriter(Str)
    End Sub
 
    Private Sub CloseFile()
        If Str IsNot Nothing Then
            Str.Close()
            Str = Nothing
        End If
        If StreamW IsNot Nothing Then
            StreamW.Close()
            StreamW = Nothing
        End If
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer2.Tick
        If StreamW Is Nothing Then OpenFile() ' Prüfen ob Datei geöffnet
        StreamW.WriteLine(i.ToString & ","c & Now.ToString() & ","c & _
          shortWert.ToString())
        StreamW.Flush() ' Datenwerte vom Buffer in die Datei schreiben
    End Sub
 
    Protected Overrides Sub Finalize()
        CloseFile() ' Alle offenen Dateien beim Beenden schliessen 
        MyBase.Finalize()
    End Sub