See my corrections to your code. Try using the debugger, and see what you come up with. The debugger is a free tool that's installed with Visual Studio.
BTW, it should go something like this:
Private Sub cmdEqual_Click()
num2 = txtDisplay.Text
If x = "+" Then
num1 += num2
ElseIf x = "-" Then
num1 -= num2
ElseIf x = "*" Then
num1 *= num2
ElseIf x = "/" Then
num1 /= Math.Max(1, num2)
End If
txtDisplay.Text = Convert.ToString(num1)
End Sub