Private Sub btnAufzeichnungStarten_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnAufzeichnungStarten.Click
        File.WriteAllText(CurDir() & "\Datei.txt", String.Empty) 
        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)
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist