Public Function Distance(lon1 As Double, lat1 As Double, lon2 As Double, lat2 As Double) As Double
Dim a_2d As Double
Dim e_2d As Double
Dim h_2d As Integer
Dim DEG_2_RAD As Double
Dim RAD_2_DEG As Double
Dim x_rads As Double
Dim y_rads As Double
Dim n_2ds As Double
Dim x_2d As Double
Dim y_2d As Double
Dim z_2d As Double
Dim x_radm As Double
Dim y_radm As Double
Dim n_2dm As Double
Dim x_2d_mark As Double
Dim y_2d_mark As Double
Dim z_2d_mark As Double
Dim curdistance As Double