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