Ayúdenme a desarrolla esto en VB por favor

Soy algo nuevo en la programacion y estoy haciendo una calculadora en VB pero tengo un problema que cuando apreto el boton para que reste este me resta, pero el problema es que cuando apreto para que sume o multiplique o divida no se que pasa pero tambien me resta creo que tengo el codigo bueno pero no veo el error me pueden ayudar? Necesito que me de los resultados correcto cuando le ponga suma que sume, resta que reste y asi sucesivamente
visor.text= es la parte donde me muestra los resultados y los numeros
ya el resto son botones para hacer las operaciones (+, -,*, /) y para insertar los numeros
aqui les dejo el codigo:
Private Sub Btn_Multiplicar_Click()
num1 = Val(visor.Text)
opera = multiplicacion
visor.Text = ""
End Sub
Private Sub Btn_Restar_Click()
num1 = Val(visor.Text)
opera = resta
visor.Text = ""
End Sub
Private Sub Btn_Sumar_Click()
num1 = Val(visor.Text)
opera = suma
visor.Text = ""
End Sub
Private Sub Btn_Division_Click()
num1 = Val(visor.Text)
opera = division
visor.Text = ""
End Sub
Private Sub Btn_igual_Click()
num2 = Val(visor.Text)
If opera = division Then
resp = num1 / num2
visor.Text = resp
End If
If opera = suma Then
resp = num1 + num2
visor.Text = resp
End If
If opera = multiplicacion Then
resp = num1 * num2
visor.Text = resp
End If
If opera = resta Then
resp = num1 - num2
visor.Text = resp
End If
End Sub
Private Sub Btn_Num0_Click()
visor.Text = visor.Text + Str(0)
End Sub
Private Sub Btn_Num1_Click()
visor.Text = visor.Text + Str(1)
End Sub
Private Sub Btn_Num2_Click()
visor.Text = visor.Text + Str(2)
End Sub
Private Sub Btn_Num3_Click()
visor.Text = visor.Text + Str(3)
End Sub
Private Sub Btn_Num4_Click()
visor.Text = visor.Text + Str(4)
End Sub
Private Sub Btn_Num5_Click()
visor.Text = visor.Text + Str(5)
End Sub
Private Sub Btn_Num6_Click()
visor.Text = visor.Text + Str(6)
End Sub
Private Sub Btn_Num7_Click()
visor.Text = visor.Text + Str(7)
End Sub
Private Sub Btn_Num8_Click()
visor.Text = visor.Text + Str(8)
End Sub
Private Sub Btn_Num9_Click()
visor.Text = visor.Text + Str(9)
End Sub