Dim StreamW As StreamWriter
        i = i + 1
        StreamW = File.AppendText(CurDir() & "\Datei.txt")
        StreamW.WriteLine(i & "," & Now & "," & shortWert)
        StreamW.Close()

   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