Try
            Dim fs As New FileStream(pfad, FileMode.Open)
            Dim reader As New BinaryReader(fs)
            Dim strDaten As String = reader.ReadString()
            reader.Close()
            fs.Close()
            Return strDaten
        Catch ex As Exception
            FormAlert.Error(ex.ToString)
            Return Nothing
        End Try

Try
            Dim fs As New FileStream(wkr & document.Name & ".pdf" & ".cms", _
              FileMode.Create)
            Dim writer As New BinaryWriter(fs)
 
            writer.Write(attribut)
            fs.Close()
            writer.Close()
            Return wkr & document.Name & ".pdf" & ".cms"
        Catch ex As Exception
            Return "error"
        End Try