Calculadora con Funciones Trigonometricas

Dim operador
Dim memoria1
Dim punto
Dim x As Single
'PI Sera una variable global, y se inicializa en Form_load()
'resultado es usado para cuando mostramos el resultado, al dar click en otro numero
Dim PI
Dim resultado
'Cada que apretamos un boton de numero se checa si ya se apreto "=" cuando es asi resultado = true
'asi que acepta la condicion y pasa a hacer la instruccion que es limpiar el campo y cambiar resultado a false
Sub Checar()
    If resultado = True Then
        txtresultado = ""
        resultado = False
    End If
End Sub
'Las funciones Sin, Cos, Tan estos deven ingresarseles radianes no grados asi que convertimos
'los grados a radianes
Private Function GetRad(ByVal numero As Single) As Double
    GetRad = ((numero * PI) / 180)
End Function

Private Sub CmdNum0_Click()
    Checar
    txtresultado = txtresultado & 0
End Sub
Private Sub CmdNum1_Click()
    Checar
    txtresultado = txtresultado & 1
End Sub
Private Sub CmdNum2_Click()
    Checar
    txtresultado = txtresultado & 2
End Sub
Private Sub CmdNum3_Click()
    Checar
    txtresultado = txtresultado & 3
End Sub
Private Sub CmdNum4_Click()
    Checar
    txtresultado = txtresultado & 4
End Sub
Private Sub CmdNum5_Click()
    Checar
    txtresultado = txtresultado & 5
End Sub
Private Sub CmdNum6_Click()
    Checar
    txtresultado = txtresultado & 6
End Sub
Private Sub CmdNum7_Click()
    Checar
    txtresultado = txtresultado & 7
End Sub
Private Sub CmdNum8_Click()
    Checar
    txtresultado = txtresultado & 8
End Sub
Private Sub CmdNum9_Click()
    Checar
    txtresultado = txtresultado & 9
End Sub

Private Sub CmdOpedecimal_Click()
    Checar
    If punto = 0 Then
        txtresultado = txtresultado & "."
        punto = 1
    End If
End Sub
Private Sub CmdOpediv_Click()
    memoria1 = txtresultado
    txtresultado = ""
    operador = "/"
    punto = 0
End Sub
Private Sub CmdOpemas_Click()
    memoria1 = txtresultado
    txtresultado = ""
    operador = "+"
    punto = 0
End Sub
Private Sub CmdOpemenos_Click()
    memoria1 = txtresultado
    txtresultado = ""
    operador = "-"
    punto = 0
End Sub
Private Sub CmdOpemulti_Click()
    memoria1 = txtresultado
    txtresultado = ""
    operador = "*"
    punto = 0
End Sub
Private Sub CmdOpeigual_Click()
    Select Case operador
        Case "+":
            txtresultado = Val(memoria1) + Val(txtresultado)
        Case "-":
            txtresultado = Val(memoria1) - Val(txtresultado)
        Case "*":
            txtresultado = Val(memoria1) * Val(txtresultado)
        Case "/":
            txtresultado = Val(memoria1) / Val(txtresultado)
    End Select
    resultado = True
End Sub
Private Sub CmdCancel_Click()
    txtresultado = ""
End Sub
Private Sub CmdCancelE_Click()
    txtresultado = ""
End Sub

Private Sub CmdOpesin_Click()
    x = Val(txtresultado)
    txtresultado = Sin(GetRad(x))
    resultado = True
End Sub
Private Sub CmdOpecos_Click()
    x = Val(txtresultado)
    txtresultado = Cos(GetRad(x))
    resultado = True
End Sub

Private Sub CmdOpetan_Click()
    x = Val(txtresultado)
    txtresultado = Tan(GetRad(x))
    resultado = True
End Sub

Private Sub Form_Load()
    punto = 0
    PI = 4 * Math.Atn(1)
    resultado = False
End Sub