' Dateiname zusammensetzen
        Dim FileName As String = "C:\Ziel\" & TextBox1_Baustelle.Text & _
          DateTime.Now.ToString("_dd_MM_yyyy__HH_mm") & ".txt"
        ' Datei erstellen und öffnen
        Dim fs As New IO.FileStream(FileName, IO.FileMode.Create)
        ' Text in ein Byte-Array umwandeln
        Dim b() As Byte
        b = System.Text.Encoding.Unicode.GetBytes(DataGridView1.Text)
        ' Byte-Array in die Datei schreiben
        fs.Write(b, 0, b.Length)
        ' Datei wieder schließen
        fs.Close()