Dim dd As Double = CtoP("N046.59.27.840")
        Debug.WriteLine(dd.ToString())
        Dim i1, i2, i3, i4 As Integer
        i1 = Math.Floor(dd)
        dd = (dd - i1) * 60
        i2 = Math.Floor(dd)
        dd = (dd - i2) * 60
        i3 = Math.Floor(dd)
        dd = (dd - i3) * 1000
        i4 = Math.Floor(dd)
 
        Dim ds As String = "N" & i1.ToString("000") & "." & i2.ToString("00") & _
          "." & i3.ToString("00") & "." & i4.ToString("000") 
 
        ' Prüfen
        dd = CtoP(ds)
        Debug.WriteLine(dd.ToString())

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist