' ---- Headerdaten wegschreiben
 
        If Not NurHeaderüberschreiben Then
 
            ' also neuen leeren RSP-File anlegen und mit der Block Variablen ( 
            ' String) füllen
 
            Dim fsRsp As StreamWriter = New StreamWriter(RspDatei, False, _
              System.Text.Encoding.Default)
            fsRsp.Write(Block)
 
            fsRsp.Close()
 
        Else
 
            ' also hier nun am Ende nur den Header am Anfang mit der Block 
            ' Variablen überschreiben
 
            Dim fs As New FileStream(RspDatei, FileMode.Open, FileAccess.Write)
 
            ' Create the writer for data.
            Dim w As New BinaryWriter(fs, System.Text.Encoding.Default)
 
            ' Write data to Test.data.
 
            'die Dateiposition setzten, hier direkt am Anfang der Datei
            Dim Position As Long = w.Seek(0, SeekOrigin.Current)
 
            ' die Stringvarible in ein Byte-Array umwandeln
            Dim bb As Byte() = System.Text.Encoding.Default.GetBytes(Block)
 
            ' dann das Byte-Array wegschreiben
            w.Write(bb)
 
            w.Close()
            fs.Close()
 
        End If