Need Help to Convert this Mapbasic's Mapinfo code into VBA

[yus2aces]

I have this code that I gather from MabBasic (MapInfo) which will create thematic map. I need help to convert this code into VBA, so I can programatically create thematic map within MS Access/VBA.

Global sTable, sLegendTitle, sLegendSubtitle as String
Global aColumn as Alias
Global iNumberOfRanges as Integer

	sTable = "MapTable"
	aColumn = "Population"
	iNumberOfRanges = 8
	sLegendTitle = "Population"
	sLegendSubtitle = "Recent Data"


Sub CreateThematic

OnError Goto ErrorHandler

Dim fRangeLimitsArray() As Float
Dim bBrushStylesArray() As Brush
	
'create ranges on selected column
	Create Ranges From sTable With aColumn Use "Equal Count" Number iNumberOfRanges Round 1 Into Variable fRangeLimitsArray
	
'create styles for the specified number of ranges
	Create Styles From Brush (2,15597520,16777215) To Brush (2,32768,16777215) Vary Color By "RGB" Number iNumberOfRanges Into Variable bBrushStylesArray 
	
	'apply thematic
	Shade Window FrontWindow() sTable With aColumn Ranges From Variable fRangeLimitsArray Style Variable bBrushStylesArray		
	
	'show legend
	Open Window Legend

	'modify legend
	Set Legend Window FrontWindow() Layer 1 Count On Title sLegendTitle Font ("Arial",1,9,255) Subtitle sLegendSubtitle Font ("Arial",2,8,255)
	
	'change legend window size
	Set Window Legend
		Width 3.54167 Units "in" Height 3.54167 Units "in"

Exit Sub

ErrorHandler:
	Note Error$()

End Sub CreateThematic

[MMcCarthy]

It is unlikely anyone here can help you unless they have mabbasic knowledge. You need to find someone who knows mabbasic who can translate this code for you so you know what it is doing exactly. Then our members can help we creating a similar function in VBA.