quickfixer

¦^´_ 3# swatt


    Sub Temp1()
    Dim intFileNum%, byttemp As Byte, intCellRow%, pos
    intFileNum = FreeFile
    intCellRow = 0
   
    fipath = "C:\hello.txt"
   
    Open fipath For Binary Access Read As intFileNum
   
    Do While pos < LOF(intFileNum)
        intCellRow = intCellRow + 1
        Get intFileNum, , byttemp
        pos = Loc(intFileNum)
        Cells(1, intCellRow) = Hex(byttemp)
    Loop
   
    Close intFileNum

MsgBox "Done."

End Sub