Импорт из файла *.bin

[mchip]

Всем привет!
Совсем все забыл... Задача следующая есть произвольный файл *.bin
нужно сделать макрос который начиная с указанного поля заполнит строку содержимым этого файла. Под содержимым я подразумеваю значения байт.

Вот что я написал:

Sub read_bin()
Dim vesFile() As Byte
    FilesToOpen = Application.GetOpenFilename _
                  (FileFilter:="áèíàðíûå ôàéëû(*.bin), *.bin", _
                   MultiSelect:=False, Title:="Files to Merge")
    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "Íå âûáðàíî íè îäíîãî ôàéëà! Èíôîðìàöèÿ íå îáíîâëåíà!"
        GoTo ExitHandler
    End If
    ZZZ = Dir(FilesToOpen)
    qwe = FilesToOpen
Open ZZZ For Binary As #1
    fSize = LOF(1)
    ReDim vesFile(1 To fSize)
    Get #1, 1, vesFile()
Close #1

Application.ThisWorkbook.Worksheets(1).Range("a1").Resize(UBound(vesFile), UBound(vesFile, 1)) = vesFile()

ExitHandler:

End Sub

На красном все стопориться... Прошу вашей помощи! Спасибо!
Выложил пример в нем числа от 0 до 16.

[Казанский]

С байтовым массивом так не получается. Можно преобразовать его в Variant():

Application.ThisWorkbook.Worksheets(1).Range("a1").Resize(, UBound(vesFile)) = Application.Index(vesFile, 0)

Строки

    ZZZ = Dir(FilesToOpen)
    qwe = FilesToOpen

совершенно не нужны, открывайте прямо

Open FilesToOpen For Binary As #1

[mchip]

Спасибо! получилось