'4 textbox(text1=hesaplayacagımız derece,text2=derece,text3=dak,text4=saniye),2comma nd butonu(biri hesapla digerı temızle)
Private Sub Command1_Click()
Dim a, b, c As Double 'ondalık sayılarıda bunyemızde barındıracagı
'ıcın double belırledık degıskenı
If Text1.Text = "" Then 'eger derece...