Untitled

Private Sub btnCompare_Click(sender As Object, e As EventArgs) Handles btnCompare.Click
    Dim numA As Integer
    Dim numB As Integer

    If Integer.TryParse(txtBoxA.Text, numA) AndAlso Integer.TryParse(txtBoxB.Text, numB) Then
        If numA > numB Then
            lblResult.Text = "Value A is greater."
        ElseIf numA < numB Then
            lblResult.Text = "Value B is greater."
        Else
            lblResult.Text = "Both values are equal."
        End If
    Else
        lblResult.Text = "Please enter valid integers."
    End If
End Sub