French Sub et retour de 2 valeurs

Sub Sp(Lat As Double,Lng As Double, Hdg As Double,D As Double)
        Dim SpLat,SpLng as Double
        SpLat= ASinD((SinD(Lat)*Cos(D/6371))+(CosD(Lat)*Sin(D/6371)*CosD(Hdg)))
        SpLng= Lng + ATan2D(SinD(Hdg)*Sin(D/6371)*CosD(Lat),Cos(D/6371)-SinD(Lat)*SinD(SpLat))
End Sub

Sub Sp(Lat As Double,Lng As Double, Hdg As Double,D As Double) As Double()
    Dim Sp(2) As Double
    Sp(0) = ASinD((SinD(Lat)*Cos(D/6371))+(CosD(Lat)*Sin(D/6371)*CosD(Hdg)))
    Sp(1) = Lng + ATan2D(SinD(Hdg)*Sin(D/6371)*CosD(Lat),Cos(D/6371)-SinD(Lat)*SinD(SpLat))
    Return Sp
End Sub

Sub Sp(Lat As Double,Lng As Double, Hdg As Double,D As Double) As Location
    Dim Loc As Location
    Loc.Latitude = ASinD((SinD(Lat)*Cos(D/6371))+(CosD(Lat)*Sin(D/6371)*CosD(Hdg)))
    Loc.Longitude = Lng + ATan2D(SinD(Hdg)*Sin(D/6371)*CosD(Lat),Cos(D/6371)-SinD(Lat)*SinD(SpLat))
    Return Loc
End Sub

Type CoordSp(SpLat As Double, SpLng As Double)

Sub SP(Lat As Double,Lng As Double, Hdg As Double,D As Double) As CoordSp
        Dim Result As CoordSp
        Result.Initialize
        Result.SpLat= ASinD((SinD(Lat)*Cos(D/6371))+(CosD(Lat)*Sin(D/6371)*CosD(Hdg)))
        Result.SpLng= Lng + ATan2D(SinD(Hdg)*Sin(D/6371)*CosD(Lat),Cos(D/6371)-SinD(Lat)*SinD(ASinD((SinD(Lat)*Cos(D/6371))+(CosD(Lat)*Sin(D/6371)*CosD(Hdg)))))
        Return Result
End Sub