código converter grau

Boa tarde, gostaria de saber se existe um livro com o seguinte módulo:

Realizo provas que necessitam de apresentação de angulo em grau, minutos e segundos. sendo que não posso levar esse código pronto apenas livros e apostilas que contenham.

Function Convert_Degree(Decimal_Deg) As Variant

    With Application

        'Set degree to Integer of Argument Passed

        Degrees = Int(Decimal_Deg)

        'Set minutes to 60 times the number to the right

        'of the decimal for the variable Decimal_Deg

        Minutes = (Decimal_Deg - Degrees) * 60

        'Set seconds to 60 times the number to the right of the

        'decimal for the variable Minute

        Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")

        'Returns the Result of degree conversion

       '(for example, 10.46 = 10~ 27  ' 36")

        Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _

            & Seconds + Chr(34)

    End With

End Function

Function Convert_Decimal(Degree_Deg As String) As Double    ' Declare the variables to be double precision floating-point.    Dim degrees As Double    Dim minutes As Double    Dim seconds As Double    ' Set degree to value before "°" of Argument Passed.    degrees = Val(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1))    ' Set minutes to the value between the "°" and the "'"    ' of the text string for the variable Degree_Deg divided by    ' 60. The Val function converts the text string to a number.    minutes = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 2, _              InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, _              "°") - 2)) / 60     ' Set seconds to the number to the right of "'" that is     ' converted to a value and then divided by 3600.     seconds = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _             2, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 2)) _             / 3600    Convert_Decimal = degrees + minutes + seconds

End Function

Obrigada.