Function Whatever() As Dictionary
#if TargetWin32
Declare Function CBIOS_GetBoxInfoAdvI Lib "CBIOSVB6.Dll" alias "CBIOS_VB6_GetBoxInfoAdvI"_
(iCount as Integer, stInfo as Ptr) as integer
Dim stInfo As MemoryBlock
Dim iCount, OSErr As Integer
Dim ReturnDict As New Dictionary
iCount = [Whatever]
stInfo = NewMemoryBlock(-- number of bytes required --)
OSErr = CBIOS_GetBoxInfoAdvI(iCount, stInfo)
ReturnDict.Value("OSErr") = OSErr
ReturnDict.Value("stInfo") = stInfo
Return ReturnDict
#Endif
End Function