convert code from vb.net to vb6

[si_the_geek]

I think the only changes needed is how the functions return their values, and declaration of a value. Instead of Return use the function name, eg:

distance = dist

..and:

Dim theta As Double 
  theta = lon1 - lon2