I have problem,

I have 3 textbox for input degree, minutes and Second.

I want to calculate the 'dipat' and 'latit'. How to input the degree minutes and second from the textbox into the Sin and Cos?

Code:
Dim jarak As Double
Dim Degree As Integer
Dim Min As Integer
Dim Sec As Integer
Dim latit As Double
Dim dipat As Double


Degree = Val(Text1.Text)
Min = Val(Text2.Text)
Sec = Val(Text3.Text)
jarak = Val(Text4.Text)

dipat = jarak * Sin(Degree, Min, Sec)
latit = jarak * Cos(Degree, Min, Sec)