Here's my code for the Love Tester!

'When you click the button:


Dim love As Integer = 0
If (CheckBox1.Checked And CheckBox2.Checked) Then
love = love + 5
ElseIf CheckBox1.Checked Then
love = love - 2
End If
If TextBox1.Text.Length = TextBox2.Text.Length Then
love = love + 100
End If
If ComboBox1.SelectedItem = "Running" And ComboBox2.SelectedItem = "Running" Then
love = love + 11
End If
If love > 50 Then
lblLove.Text = "You are a good match " & love
ElseIf love > 20 Then
lblLove.Text = "You are an okay match " & love
Else
lblLove.Text = "You should run! " & love
End If