Calculadora 3 (por guido)

Private Sub borrar_Click()
visual.Caption = ""
auxiliar2.Caption = ""
visual.Caption = ""
End Sub
Private Sub cero_Click()
visual.Caption = auxiliar.Caption + "0"
End Sub
Private Sub cinco_Click()
visual.Caption = auxiliar.Caption + "5"
End Sub

Private Sub coma_Click()
visual.Caption = auxiliar.Caption + ","
End Sub
Private Sub Command_Click()
auxiliar2.Caption = auxiliar.Caption
auxiliar.Caption = ""
aux.Caption = Command.Caption
End Sub
Private Sub cuatro_Click()
visual.Caption = auxiliar.Caption + "4"
End Sub
Private Sub dividir_Click()
auxiliar2.Caption = visual.Caption
auxiliar.Caption = "/"
auxiliar.Caption = ""
End Sub
Private Sub dos_Click()
auxiliar.Caption = auxiliar.Caption + "2"
End Sub
Private Sub igual_Click()
If visual.Caption = "+" Then
auxilar.Caption = Val(auxiliar2.Caption) + Val(auxiliar.Caption)
auxiliar2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "-" Then
auxilar.Caption = Val(auxiliar2.Caption) - Val(auxiliar.Caption)
auxiliar2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "/" Then
auxilar.Caption = Val(auxiliar2.Caption) / Val(auxiliar.Caption)
auxiliar2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "*" Then
auxilar.Caption = Val(auxiliar2.Caption) * Val(auxiliar.Caption)
aux2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "%" Then
auxiliar.Caption = Val(auxiliar.Caption) / Val(visual.Caption)
End If
auxiliar.Caption = ""
End Sub
Private Sub mas_Click()
auxiliar2.Caption = auxiliar.Caption
visual.Caption = "+"
auxiliar.Caption = ""
End Sub
Private Sub menos_Click()
auxiliar2.Caption = auxiliar.Caption
visual.Caption = "--"
auxiliar.Caption = ""
End Sub

Private Sub mult_Click()
auxiliar2.Caption = auxiliar.Caption
visual.Caption = "x"
auxiliar.Caption = ""
End Sub
Private Sub nueve_Click()
visual.Caption =visual.Caption + "9"
End Sub
Private Sub ocho_Click()
visual.Caption =visual.Caption + "8"
End Sub
Private Sub seis_Click()
visual.Caption =visual.Caption + "6"
End Sub
Private Sub siete_Click()
visual.Caption =visual.Caption + "7"
End Sub
Private Sub tres_Click()
visual.Caption =visual.Caption + "3"
End Sub
Private Sub uno_Click()
visual.Caption =visual.Caption + "1"
End Sub