Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label2.Text = "10000 + 2000 + 300 + 40 + 5 = ?"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim res, x, y
        res = 12345
        x = TextBox1.Text
        y = Label1.Text
        If x <> res Then
            y = "Fuck you!"

        ElseIf x = res Then
            y = "Good dog :) "
        End If

    End Sub
End Class