[Tutorial] Crear calculadora.

Dim  A  As  Long
Dim  B  As  Long
Private  Sub  Form_Load()
'Esto  hace  que  las  cajas  de  texto  colocadas  se  limpien  y  que  la  caja  del  resultado  no  sea  modificable.
Text1.text  =  ""
Text2.text  =  ""
Text3.text  =  ""
Text3.locked  =  True
'Esto  le  da  los  signos  de  operacion  a  los  CommandButton.
Command1.Caption  =  "+"
Command2.Caption  =  "-"
Command3.Caption  =  "*"
Command4.Caption  =  "/"
End  Sub
'Los  siguientes  cuatro  Private  Subs  establecen  que  al  apretar  cada  boton  se  ejecute  la  operacion  y  muestre  el  resultado  en  la  caja  de  texto  bloqueada.
Private  sub  Command1_Click()
A  =  text1.text
B  =  text2.text
text3.text  =  A  +  B
If  text1.text=""  Then
MsgBox  "Imposible  hacer  la  suma  por  falta  de  un  valor",vbInformation
Else
If  text2.text=""  Then
MsgBox  "Imposible  hacer  la  suma  por  falta  de  un  valor",vbInformation
End  If
End  If
End  Sub
Private  sub  Command2_Click()
A  =  text1.text
B  =  text2.text
text3.text  =  A  -  B
If  text1.text=""  Then
MsgBox  "Imposible  hacer  la  resta  por  falta  de  un  valor",vbInformation
Else
If  text2.text=""  Then
MsgBox  "Imposible  hacer  la  resta  por  falta  de  un  valor",vbInformation
End  If
End  If
End  Sub
Private  sub  Command3_Click()
A  =  text1.text
B  =  text2.text
text3.text  =  A  *  B
If  text1.text=""  Then
MsgBox  "Imposible  multiplicar  por  falta  de  factor",vbInformation
Else
If  text2.text=""  Then
MsgBox  "Imposible  multiplicar  por  falta  de  factor",vbInformation
End  If
End  If
End  Sub
Private  sub  Command4_Click()
A  =  text1.text
B  =  text2.text
text3.text  =  A  /  B
If  text1.text=""  Then
MsgBox  "Imposible  hacer  la  division  por  falta  de  un  valor",vbInformation
Else
If  text2.text=""  Then
MsgBox  "Imposible  hacer  la  division  por  falta  de  un  valor",vbInformation
Else
If  text2.text="0"  Then
MsgBox  "Imposible  dividir  entre  cero",vbInformation
End  If
End  If
End  If
End  Sub
'Fin  del  codigo