vb code open file

Sub TestReadIn_Click()

Dim strTemp, strTemp1, pathStr As String
Dim i, n, j As Long
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
Dim Fname As String
Dim strBuffer As String


OpenFile.lStructSize = Len(OpenFile)
sFilter = "Text Files (*.txt)" & Chr(0) & "*.TXT" & Chr(0)
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = String(257, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = "C:\"
OpenFile.lpstrTitle = "File"
OpenFile.flags = 0

lReturn = GetOpenFileName(OpenFile)

If lReturn = 0 Then
MsgBox "You didn't select any file"
Else
MsgBox "The user Chose " & Trim(OpenFile.lpstrFile)
End If
Fname = Trim$(OpenFile.lpstrFileTitle) ' copy the filename to "Fname"

n = FileLen(OpenFile.lpstrFile) 'length of the file

FileName = FreeFile
Open Fname For Binary Access Read As #FileName
    Dim Item() As Byte
    ReDim Item(LOF(FileName) - 1)
    Get #FileName, , Item()  ' read help file on this usage
Close #FileName
MsgBox (StrConv(Item(), vbUnicode))
MsgBox (Item())
End Sub