Cómo hacer código de suma, resta, multiplicación y división para calculadora del 0 al 9 en lenguaje vb

Subcomando privado1_Click()

Seleccionar caso Texto2.Text

Caso " "

Texto4.Text = Str(Val(Text1 .Text) Val(Text3.Text))

Caso "-"

Text4.Text = Str(Val(Text1.Text) - Val(Text3.Text)) p>

Caso "*"

Texto4.Text = Str(Val(Text1.Text) * Val(Text3.Text))

Caso "/"

Si Val(Text3.Text) = 0 Entonces

Text4.Text = "El divisor no puede ser 0"

De lo contrario

Text4 .Text = Str(Val(Text1.Text) / Val(Text3.Text))

Finalizar si

Finalizar selección