Position converter

Det er jo en regneopgave!
Så vidt jeg kan se er konverteringen du giver som eksempel lidt forkert -
(60*10+54)/3600 = 0, 181667 - ikke 0,1756667

Ellers

Function dhms2dec(dhms)
    Dim hms, ms, startpos, result, delim
    Const minusTrailChar = "S.W"
    hms = Split(dhms, " ")
    For startpos = 0 To 2 Step 2
        ms = Split(hms(startpos + 1), ".")
        result = result & delim & str((Val(hms(startpos)) + (Val(ms(0)) * 60 + Val(ms(1))) / 3600) * ((Right(ms(1), 1) = Mid(minusTrailChar, startpos + 1, 1)) Or 1))
        delim = ","
    Next
    dhms2dec = result
End Function

#bvirk googler man de to resultater og lader google map vise dem - ser det nu ud til larsgrau har en bedre konvertering end den du foreslår.

jeg tror det er 10 komma 54 minutter  -- og ikke 10 minutter 54 sekunder

#kurt54, det har du ret i, jeg var blind for at det var et decimal punktum.
#larsgrau, jeg er ikke kyndig i longitude lattitude format specifikationer, så derfor ...

Fandt denne derom:
https://www.wikihow.com/Write-Latitude-and-Longitude

update

Function longLat2signLongLat(letterTrailedLongLat)
    Dim items, startpos
    items = Split(letterTrailedLongLat, " ")
    For Each startpos In Array(0, 2)
        longLat2signLongLat = longLat2signLongLat & Left(",", -(startpos > 0)) _
            & str((Val(items(startpos)) + (Val(items(startpos + 1)) / 60)) * ((Right(items(startpos + 1), 1) = Mid("S.W", startpos + 1, 1)) Or 1))
    Next
End Function

update, space seperation using Left(" ", -(startpos > 0))

Function longLat2signLongLat(letterTrailedLongLat)
    Dim items, startpos
    items = Split(letterTrailedLongLat, " ")
    For Each startpos In Array(0, 2)
        longLat2signLongLat = longLat2signLongLat & Left(" ", -(startpos > 0)) _
            & str((Val(items(startpos)) + (Val(items(startpos + 1)) / 60)) * ((Right(items(startpos + 1), 1) = Mid("S.W", startpos + 1, 1)) Or 1))
    Next
End Function