Here is code from SuperScan. Not sure what's going on with 'Put' call but it only requires a tweak.

Private Sub cmdOk_Click(Arg4 as VT_DISPATCH)
Dim Local2 as VT_PTR.ErrObject
On Error Resume Unknown
Dim FLocal1 as Integer
Flocal1 = FreeFile
Open Global6705188_old & "\\evnthot.dat" for Binary as FLocal1
Put #FLocal1,Global6707340,4650724
Put #FLocal1,Global6707312,4650752
Close #FLocal1
Set Local1 as #ARG4
(OFFSET-CONTAINER 1 Global6724696).Unload(#ARG4)
Dim FLocal8 as _ErrObject
Flocal8 = Err
Set Local2 = FLocal8
MsgBox(FLocal8.Description & vbCrLf & "in SuperScan.frmInsertEvent.cmdOk_Click " & "at line " & CStr(Erl),VBOKONLY)
Resume Next
Exit Proc