codigos calculadora, gonzi

hola gente aca les dejo los codigos saludos+
+

Private Sub Command5_Click()End SubPrivate Sub Command6_Click()End SubPrivate Sub borrar_Click()visor = ""End SubPrivate Sub cero_Click()visor.Caption = visor.Caption + "0"End SubPrivate Sub cinco_Click()visor.Caption = visor.Caption + "5"End SubPrivate Sub cuatro_Click()visor.Caption = visor.Caption + "4"End SubPrivate Sub dividido_Click()auxnro.Caption = visor.Captionauxoper.Caption = "/"visor.Caption = ""End SubPrivate Sub dos_Click()visor.Caption = visor.Caption + "2"End SubPrivate Sub igual_Click()If auxoper.Caption = "+" Thenvisor.Caption = Val(auxnro.Caption) + Val(visor.Caption)End IfIf auxoper.Caption = "-" Thenvisor.Caption = Val(auxnro.Caption) - Val(visor.Caption)End IfIf auxoper.Caption = "*" Thenvisor.Caption = Val(auxnro.Caption) * Val(visor.Caption)End IfIf auxoper.Caption = "/" Thenvisor.Caption = Val(auxnro.Caption) / Val(visor.Caption)End IfEnd SubPrivate Sub mas_Click()auxnro.Caption = visor.Captionauxoper.Caption = "+"visor.Caption = ""End SubPrivate Sub menos_Click()auxnro.Caption = visor.Captionauxoper.Caption = "-"visor.Caption = ""End SubPrivate Sub nueve_Click()visor.Caption = visor.Caption + "9"End SubPrivate Sub ocho_Click()visor.Caption = visor.Caption + "8"End SubPrivate Sub por_Click()auxnro.Caption = visor.Captionauxoper.Caption = "*"visor.Caption = ""End SubPrivate Sub punto_Click()visor.Caption = visor.Caption + "."End SubPrivate Sub seis_Click()visor.Caption = visor.Caption + "6"End SubPrivate Sub siete_Click()visor.Caption = visor.Caption + "7"End SubPrivate Sub tres_Click()visor.Caption = visor.Caption + "3"End SubPrivate Sub uno_Click()visor.Caption = visor.Caption + "1"End Sub