Question

Is it possible in Excel VBA to read a binary file to a variable?

A function similar to:

function bin2var(filename as String) As XXXX

And also, is it possible to do the reverse operation?

function var2bin(filename as String,data as XXXX)

Answer 1

Function bin2var(filename As String) As String
    Dim f As Integer
    f = FreeFile()
    Open filename For Binary Access Read Lock Write As #f
        bin2var = Space(FileLen(filename))
        Get #f, , bin2var
    Close #f
End Function

Sub var2bin(filename As String, data As String)
    Dim f As Integer
    f = FreeFile()
    Open filename For Output Access Write Lock Write As #f
        Print #f, data;
    Close #f
End Sub