Sub HexView()
    Dim lcFile As String    ' Имя файл
    Dim lcChar As String    ' Буфер для символа
    Dim lcString As String  ' Сам не знаю зачем, но так принято
    Dim lcHex As String     ' Значение в HEX
    Dim i As Integer
    Dim x As String         ' Колонка Excel
    Dim y As Integer        ' Ряд Excel
    Close # 1                 ' Debug
    ' Выбор файла, лень писать красиво
    lcFile = InputBox( "File:" ,  "Open file" ,  "D:\boot.ini" )
    If lcFile =  "" Then Exit Sub
    lcChar = String(1 , "  ") ' размер буфера 1 символ
    lcString = ""
    Open lcFile For Binary Access Read As #1 ' открытие файла на чтение
    If LOF(1 ) =  0  Then MsgBox "File is not open ": Exit Sub
    ' Чистим лист Excel
    Cells.Select
    Selection.ClearContents
    x = "A"
    y = 1
    Do While Not EOF(1)       ' пока не встретится конец файла
       Get #1 , , lcChar       ' считываем один символ
       If Asc(lcChar) > 31 Then
            lcString = lcString & lcChar
       Else
            lcString = lcString & " " ' Непечатные символы на фиг
       End If
       ' Перевод в HEX
       lcHex = Hex(Asc(lcChar))
       If Len(lcHex) = 1 Then lcHex = "0" & lcHex
       If Len(lcHex) = 0 Then lcHex = "00"
       ' Запись в ячейку Excel
       Range(x & y).Select
       ActiveCell.NumberFormat = "@ "
       ActiveCell.FormulaR1C1 = lcHex
       x = Chr(Asc(x) + 1 )
       ' На 16-й колонку добавляем новый ряд
       If x = "Q" Then x = "A": _
       Range("Q" & y).Select: _
       ActiveCell.FormulaR1C1 = lcString: _
       lcString = "": y = y + 1:
    Loop
    ' Остатки
    Range("Q " & y).Select
    ActiveCell.FormulaR1C1 = lcString
    Close #1                     ' закрываем файл
    ' Ровняем, чтоб красиво
    For i = Asc("A ") To Asc(" Q ")
        Columns(Chr(i) & " : " & Chr(i)).EntireColumn.AutoFit
    Next
    ' Прыгаем в начало листа Excel
    Range(" A1").Select
End Sub

Open lcFile For Binary Access Write As # 1 
Put # 1 , lnPosition, lcChar