Калькулятор, вычисление тригонометрических функций (в градусах) - VB

Формулировка задачи:

Всем привет, возник вопрос по калькулятору, а конкретней, высчитывание тригонометрич. функций не ф радианах а в градусах, вот код всего калькулятора, делал на 6 версии:

Private Sub cmdcosG_Click()
Text3.Text = Cos(Val(Text1.Text)) * 3.14 / 180
End Sub
 
Private Sub cmdcosR_Click()
Text3.Text = Cos(Val(Text1.Text))
End Sub
 
Private Sub cmdctgG_Click()
 If Val(Text1.Text) = 0 Then
        Text3.Text = "ГЌГ… Г‘Г“Г™Г…Г‘Г’Г‚Г“Г…Г’!!!"
    
    Else
        Text3.Text = (Tan(Val(Text1.Text))) ^ (-1) * 3.14 / 180
    End If
End Sub
 
Private Sub cmdctgR_Click()
 If Val(Text1.Text) = 0 Then
        Text3.Text = "ГЌГ… Г‘Г“Г™Г…Г‘Г’Г‚Г“Г…Г’!!!"
    
    Else
        Text3.Text = (Tan(Val(Text1.Text))) ^ (-1)
    End If
End Sub
 
Private Sub CmdDecHex_Click(Index As Integer)
TxtHex.Text = Hex(Val(TxtDec.Text))
End Sub
 
Private Sub CmdDecOct_Click(Index As Integer)
TxtOct.Text = Oct(Val(TxtDec.Text))
End Sub
 
Private Sub CmdHexDec_Click(Index As Integer)
TxtDec.Text = Val("&h" + TxtHex.Text)
End Sub
 
Private Sub CmdOctDec_Click(Index As Integer)
TxtDec.Text = Val("&o" + TxtOct.Text)
End Sub
 
Private Sub cmdsinG_Click()
Text3.Text = Sin(Val(Text1.Text)) * 3.14 / 180
End Sub
 
Private Sub cmdsinR_Click()
Text3.Text = Sin(Val(Text1.Text))
End Sub
 
Private Sub cmdtgG_Click()
Text3.Text = Tan(Val(Text1.Text)) * 3.14 / 180
End Sub
 
Private Sub cmdtgR_Click()
Text3.Text = Tan(Val(Text1.Text))
End Sub
 
Private Sub Command1_Click()
If Val(Text1.Text) <= 0 Then
        Text3.Text = "ГЌГ… Г‘Г“Г™Г…Г‘Г’Г‚Г“Г…Г’!!!"
    Else
        Text3.Text = Log(Val(Text1.Text))
    End If
End Sub
 
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) ^ Val(Text2.Text)
End Sub
 
Private Sub Command3_Click()
If Val(Text1.Text) >= 0 Then
        Text3.Text = Sqr(Val(Text1.Text))
    Else
        Text3.Text = "ГЌГ… Г‘Г“Г™Г…Г‘Г’Г‚Г“Г…Г’!!!"
    End If
End Sub
 
Private Sub Command4_Click()
Unload Me
End Sub
 
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
TxtDec.Text = ""
TxtOct.Text = ""
TxtHex.Text = ""
End Sub
 
Private Sub del_Click()
If Val(Text1.Text) = 0 Then
        Text3.Text = "ГЌГЂ ГЌГЋГ‹Гњ Г„Г…Г‹Г€Г’Гњ ГЌГ…Г‹ГњГ‡Гџ!"
    Else
        Text3.Text = Val(Text1.Text) / Val(Text2.Text)
    End If
End Sub
 
Private Sub sloj_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub umn_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
 
Private Sub vich_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

при высчитывании в градусах sin32=9,61933210610505E-03 как сделать так, чтобы считал только в градусах и в минутах?

нет ниодного сведущего человека в VB?(

Решение задачи: «Калькулятор, вычисление тригонометрических функций (в градусах)»

textual
                            Листинг программы 
                        
                            Sin (Val(Text1.Text) * 3.14 / 180)