Been working through a maths game and have got so far but face my problem with the answers, no matter what input i put in ( numbers ofc ) it says there correct, i cant work out why its not doing what i coded it to do, if you can notice whats wrong your a star.

Math game Code:
  1. Public Class Form3

  2.  
  3.     Dim RandomClass As New Random

  4.     Dim symbole As Integer

  5.     Dim Answers As Integer

  6.     Public Wrong_Answer As Integer

  7.     Public Total_Correct As Integer

  8.     Public Lifes As Integer

  9.  
  10.  

  11.  
  12.   

  13.  
  14.  
  15.  
  16.  
  17.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  18.  
  19.         check()

  20.  
  21.     End Sub

  22.     Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  23.  
  24.         lblname.Text = username

  25.         randomize()

  26.  
  27.     End Sub

  28.     Sub randomize()

  29.  
  30.  
  31.         Int(Rnd() * 25)

  32.         TextBox1.Text = ""

  33.         textbox2.Text = (RandomClass.Next(1, 10))

  34.         textbox3.Text = (RandomClass.Next(1, 10))

  35.         symbole = CInt(Int(Rnd() * 4) + 1)

  36.  
  37.         If symbole = 1 Then label2.Text = ("+")

  38.         If symbole = 2 Then label2.Text = ("-")

  39.         If symbole = 3 Then label2.Text = ("*")

  40.         If symbole = 4 Then label2.Text = ("/")

  41.  
  42.  
  43.     End Sub

  44.     Sub check()

  45.         If symbole = 1 Then check1()

  46.         If symbole = 2 Then check2()

  47.         If symbole = 3 Then check3()

  48.         If symbole = 4 Then check4()

  49.     End Sub

  50.  
  51.     Sub Check1()

  52.  
  53.  
  54.         Dim variable1 As Double

  55.         Double.TryParse(TextBox1.Text, variable1)

  56.  
  57.         Dim variable2 As Double

  58.         Double.TryParse(textbox2.Text, variable2)

  59.  
  60.         Dim answers As Double = variable1 + variable2

  61.  
  62.         If variable1 + variable2 = answers Then

  63.             Msgboxcor()

  64.  
  65.         Else

  66.             If variable1 + variable2 <> answers Then Msgboxinc()

  67.  
  68.  
  69.  
  70.         End If

  71.  
  72.  
  73.  
  74.     End Sub

  75.  
  76.     Sub check2()

  77.  
  78.             Dim variable1 As Double

  79.             Double.TryParse(TextBox1.Text, variable1)

  80.  
  81.             Dim variable2 As Double

  82.             Double.TryParse(textbox2.Text, variable2)

  83.  
  84.             Dim answers As Double = variable1 - variable2

  85.  
  86.             If variable1 - variable2 = answers Then

  87.                 Msgboxcor()

  88.  
  89.             Else

  90.                 Msgboxinc()

  91.  
  92.  
  93.             End If

  94.  
  95.  
  96.     End Sub

  97.  
  98.     Sub check3()

  99.  
  100.             Dim variable1 As Double

  101.             Double.TryParse(TextBox1.Text, variable1)

  102.  
  103.             Dim variable2 As Double

  104.             Double.TryParse(textbox2.Text, variable2)

  105.  
  106.             Dim answers As Double = variable1 * variable2

  107.  
  108.             If variable1 * variable2 = answers Then

  109.                 Msgboxcor()

  110.  
  111.             Else

  112.                 Msgboxinc()

  113.  
  114.  
  115.             End If

  116.  
  117.  
  118.     End Sub

  119.  
  120.     Sub check4()

  121.  
  122.             Dim variable1 As Double

  123.             Double.TryParse(TextBox1.Text, variable1)

  124.  
  125.             Dim variable2 As Double

  126.             Double.TryParse(textbox2.Text, variable2)

  127.  
  128.             Dim answers As Double = variable1 * variable2

  129.  
  130.             If variable1 * variable2 = answers Then

  131.                 Msgboxcor()

  132.  
  133.             Else

  134.                 Msgboxinc()

  135.  
  136.  
  137.             End If

  138.  
  139.  
  140.     End Sub

  141.  
  142.     Sub Msgboxcor()

  143.  
  144.  
  145.             MsgBox("Correct")

  146.  
  147.             Total_Correct = +1

  148.  
  149.             randomize()

  150.  
  151.     End Sub

  152.  
  153.     Sub Msgboxinc()

  154.  
  155.             MsgBox("Incorrect")

  156.  
  157.             Wrong_Answer = +1

  158.             Lifes = +1

  159.  
  160.             If Lifes = 2 Then Close()

  161.  
  162.  
  163.     End Sub

  164.  
  165.  
  166.  
  167. End Class