Visual Basic

Dim asStream As FileStream = New FileStream(physicalPath, FileMode.Open, FileAccess.Read)
            Dim asLen As Long = asStream.Length
            Dim fileData As Byte() = New Byte(asLen) {}
            asStream.Read(fileData, 0, asLen)
            asStream.Close()

            Dim byteLine() As Byte = New Byte() {}
            Dim strArray() As String = New String() {}
            For bdx As Integer = 0 To fileData.Length - 1

                Dim byteVal As Byte = fileData(bdx)
                If Not (byteVal = &HD) Then

                    Array.Resize(byteLine, byteLine.Length + 1)
                    byteLine(byteLine.Length - 1) = byteVal

                Else
                    Array.Resize(byteLine, byteLine.Length + 1)
                    byteLine(byteLine.Length - 1) = byteVal

                    Dim charLine() As Char = New Char() {}
                    Array.Resize(charLine, byteLine.Length + 1)

                    For cdx As Integer = 0 To byteLine.Length - 1

                        charLine(cdx) = AsciiByteToChar(byteLine(cdx))

                    Next

                    Dim value As String = New String(charLine)
                    Array.Resize(strArray, strArray.Length + 1)
                    strArray(strArray.Length - 1) = value

                    Array.Resize(byteLine, 0)
                    bdx += 1

                End If
            Next