Calculadora (por alan)

Private Sub Borrar_Click()
Numeros.Caption = "0"
End Sub

Private Sub Command10_Click()
Numeros.Caption = ""

Private Sub cero_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "0"
Else
Numeros.Caption = Numeros.Caption + "0"
End If
End Sub

Private Sub cinco_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "5"
Else
Numeros.Caption = Numeros.Caption + "5"
End If
End Sub

Private Sub cuatro_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "4"
Else
Numeros.Caption = Numeros.Caption + "4"
End If
End Sub

Private Sub dos_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "2"
Else
Numeros.Caption = Numeros.Caption + "2"
End If
End Sub

Private Sub Igual_Click()
If Auxiliar.Caption = Numeros.Caption Then
Numeros.Caption = Val(Auxiliar.Caption) + Val(Numeros.Caption)
Auxiliar.Caption = ""
Else
Numeros.Caption = Val(Auxiliar2.Caption) - Val(Numeros.Caption)
Auxiliar2.Caption = ""
End If
End Sub

Private Sub nueve_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "9"
Else
Numeros.Caption = Numeros.Caption + "9"
End If
End Sub

Private Sub ocho_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "8"
Else
Numeros.Caption = Numeros.Caption + "8"
End If
End Sub

Private Sub restar_Click()
Auxiliar2.Caption = Numeros.Caption
Numeros.Caption = "0"
End Sub

Private Sub seis_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "6"
Else
Numeros.Caption = Numeros.Caption + "6"
End If
End Sub

Private Sub siete_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "7"
Else
Numeros.Caption = Numeros.Caption + "7"
End If
End Sub

Private Sub sumar_Click()
Auxiliar.Caption = Numeros.Caption
Numeros.Caption = "0"
End Sub

Private Sub tres_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "3"
Else
Numeros.Caption = Numeros.Caption + "3"
End If
End Sub

Private Sub uno_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "1"
Else
Numeros.Caption = Numeros.Caption + "1"
End If
End Sub