Private Sub btnAufzeichnungStarten_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnAufzeichnungStarten.Click
        If File.Exists(CurDir() & "\Datei.txt") Then
            File.WriteAllText(CurDir() & "\Datei.txt", String.Empty)
        End If
        Timer2.Enabled = True
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Timer2.Tick
        i += 1
        File.AppendAllText(CurDir() & "\Datei.txt", _
        i & "," & Now & "," & shortWert & vbCrLf)
    End Sub