[RESOLVED] Unicode problem: read binary file at spesific position with unicode path

[astralist]

i have a code like this:

Public Function GetBin(ByVal lpFileName As String, ByVal lpByteCount As Long, Optional ByVal StartByte As Long = 0) As String
On Error Resume Next
Dim Bin() As Byte
Dim ByteSum As Long
Dim i As Long

ReDim Bin(lpByteCount) As Byte

Open lpFileName For Binary As #1
    If StartByte = 0 Then
        Get #1, , Bin
    Else
        Get #1, StartByte, Bin
    End If
Close #1

For i = 0 To lpByteCount
    ByteSum = ByteSum + Bin(i)
Next i

GetBin = ByteSum

End Function

which can read spesific bytes within spesific position.
the problem is:

how to make it supports unicode path?

or..
is there any replacement for this function??