Can anyone convert these VB lines of code to vfp?

Dim oAddrLookup As New TBMAddressLookup
Dim oLookupResult As TBMAddressLookupResult
oaddrLookup.SourceTBMMap=TBMMap1
Set oLookupResult=oAddrLookup.LookupAddress('address1','address2','','')

The purpose is to get the page number and grid from Thomas Brothers Digital Edition.

thanks,

Michael Rabago