Visual Basic - Calculadora

Diseño:

Código para lo botones:

Option Explicit

Private Sub cmdDiv_Click()
txtResult.Text = Val(txtOper1.Text) / Val(txtOper2.Text) lblOp.Caption = "/"
End Sub

Para los demás botones cambiar solo el operador (*, - , +)

Para el botón de limpiar es el siguiente código:

Private Sub Command5_Click() 
Text1.Text = "" 
Text2.Text = "" 
Text3.Text = "" 
End Sub