A short function to format decimal degrees as DMM'SS"
eg.: 123.5436 = 12332'37"
Code:
Function FormatDMS(ByVal Degs As Double) As String
    Degs = Int(Degs * 3600 + 0.5) / 3600 '-- rounding to second
    FormatDMS = Int(Degs) & Format(Degs / 24, "nn'ss\""")
End Function
see http://www.vbforums.com/showthread.p...06#post3970406