Option Explicit
 
Const Pi As Double = 3.14159265358979
 
Function Asn(X)
' Equivalent of spreadsheet Asin(x)
Asn = 2 * Atn(X / (1 + Sqr(1 - X * X)))
End Function
 
Function Distance(ByVal Koord1 As String, ByVal Koord2 As String) As Double
'#### Berechnen der Distanz zwischen 2 Koordinaten ###
  Dim Lat1 As Double
  Dim Lon1 As Double
  Dim Lat2 As Double
  Dim Lon2 As Double
 
   Lat1 = Mid(Koord1, 1, 11) * Pi / 180 / 1000000
   Lon1 = Mid(Koord1, 12, 11) * Pi / 180 / 1000000
   Lat2 = Mid(Koord2, 1, 11) * Pi / 180 / 1000000
   Lon2 = Mid(Koord2, 12, 11) * Pi / 180 / 1000000
 
  Distance = 2 * Asn(Sqr((Sin((Lat1 - Lat2) / 2)) ^ 2 + Cos(Lat1) * Cos(Lat2) * _
    (Sin((Lon1 - Lon2) / 2)) ^ 2))
End Function
 
Private Sub Form_Load()
 
Dim Koord1 As String
Dim Koord2 As String
 
Koord1 = "+033.942536-118.408075" 'Los Angeles
Koord2 = "+040.639750-073.778925" 'New York
 
Label1.Caption = "Distance = " & Round(Distance(Koord1, Koord2) * 180 * 60 / _
  Pi) & " NM"
End Sub