Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Dim FStream As New FileStream("C:\TestStream.txt", FileMode.Create, _
        FileAccess.ReadWrite, FileShare.Read)
        Dim SWriter As New StreamWriter(FStream)
        Dim tempVerzeichnis As String = "C:\ztrzrtrtz.jpg"
        Dim fsFile As FileStream = New FileStream(tempVerzeichnis, _
          FileMode.Open)
        Dim fsReader As BinaryReader = New BinaryReader(fsFile)
        Dim buffer As Byte() = New Byte(2048) {}
        Dim readBytes As Integer = 0
        Do
            readBytes = fsReader.Read(buffer, 0, 2048)
            For Each b As Byte In buffer
                SWriter.WriteLine(Hex(b))
            Next
        Loop While readBytes > 0
        fsReader.Close()
        SWriter.Close()
        FStream.Close()
        MsgBox("fertig")
 
    End Sub