Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
        Dim readStream As FileStream
        Dim msg As String
        Try
readStream = New FileStream("c:\testBinary.dat", FileMode.Open)
            Dim readBinary As New BinaryReader(readStream)
            msg = readBinary.ReadString()
            MsgBox(msg)
            readStream.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class