Io ti suggerirei di comprimere un po' il codice, così:
codice:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim PacchettoDati As New StreamReader("D:\ss_orig\ooo.da")
        Dim lendata As String
        Dim lendatabit As Integer
        Do Until PacchettoDati.Peek = -1
            lendata = PacchettoDati.ReadLine
            lendatabit = lendata.Length
            TextBox2.Text += lendata + vbCrLf + lendatabit
        Loop
        PacchettoDati.Close()
End Sub
Cmq, cosa intendi per binario?