gok>NMEA(WGS-84) 5601.0318,N 01211.3503,E
gok>Decimal format 56.01755 12.19302

похоже не совсем разобрался.
именно нужно перевести 5601.0318 -> 56.01755

вроде это

    Private Function toDecimal(ByVal Pos As String) As Double
        'Pos="5601.0318"
        Dim PosDb As Double = CType(Replace(Pos, ".", ","), Double) 'Replace . with , (Used in danish doubles)
        Dim Deg As Double = Math.Floor(PosDb / 100)
        Dim DecPos As Double = Math.Round(Deg + ((PosDb - (Deg * 100)) / 60), 5)
        Return DecPos '=56.0172
    End Function

А вот как из NMEA и Decimal format перевести в градусы/мин/сек что-то не нашел.
Причем хотелось бы переводить из nmea сразу и из Decimal format (без промежуточных преобразований)

gok>Отсюда
gok>Там же есть интересные измерения стабильности GPS приемника
gok>Надо бы такое же проделать

что-то не понял о чем ?