Hi

I am having trouble working out distance between two cities. It doesn't happen on all cities but it goes wrong on London and adelaide.

London being 51.3 / 0.1
Adelaide -34.55/-138.35

I get an answer of 3,785,583.93216433

it should be more like 16,000,000

my code is


Dim gs As GeoStruct, iretval As Integer
gs.Latitude1 = 51.3
gs.Longitude1 = 0.1

gs.Latitude2 = -34.55
gs.Longitude2 = -138.35

gs.geoid = 16 '' this specifies the elipsoid measurements 16 is international

iretval = VInverse(gs)
If iretval = WICNOERROR Then
lblAnswer.Caption = CStr(gs.Distance)
Else
lblAnswer.Caption = "There was an error working out the distance, ret val : " & iretval
End If

Am I doing something wrong ??
Cheers

Amjid