Function cutfile$(sFN$)
' здесь Автором указано, что описываем "функцию", причём возвращающую символьное значение, причём параметром для этой функции тоже является символьное значение. В идеологии VB - переменные будут приведены к данному типу при исполнении кода.
Dim f%, i%, skey$
' здесь Автор заводит локальные переменные, причём указанных типов
' также запомним, что при явном указании типа переменная инициализируется "пустым" значением данного типа
Dim b As Byte, b0 As Byte
' здесь то же самое, что выше
f = FreeFile
' это уже обсудили. Замечу, что =FreeFile() возвращает число - указатель на файл, либо код ошибки
' при этом, если всё нормально - файл оказывается открытым для прямого доступа
Open sFN For Binary As #f
' во-первых, ЦЭ надо изучить действие OPEN, затем опцию FOR BINARY, затем ещё понять, почему указано именно #f, а не просто f...
For i =  1  To  5 
' это мы делаем цикл со счетчиком от 1 до 5
    Get f, i, b
' это получаем из файла, открытого с номером f, байт под номером i, и записываем это байт в переменную b (числовую)
    skey = skey & Hex(b)
' это мы добавляем справа в символьную переменную символьное же значение прочитанного байта в шестнадцатиричном формате
    Put f, i, b0
' а это мы пишем прямо в файл на место запомненного байта - содержимое из переменной b0. Как помним, проинициализированную  значением 0.
Next i
Close #f
' закрываем файл
cutfile = skey
' ну и возвращаем в качестве значения функции - сформированный нами символьный код первых пяти байт
Debug.Print skey
End Function

skey - skey & "1"