Comparison Operators in VB

Dim A As Integer
Dim B As Integer
Private Sub Command1_Click()
A = Text1.Text
B = Text2.Text

Text3.Text = A > B
Text4.Text = A < B
Text5.Text = A >= B
Text6.Text = A <= B
Text7.Text = A = B
Text8.Text = A <> B
Label4.Caption = A & ">" & B
Label5.Caption = A & "<" & B
Label6.Caption = A & ">=" & B
Label7.Caption = A & "<=" & B
Label8.Caption = A & "=" & B
Label9.Caption = A & "<>" & B
End Sub

Private Sub Command2_Click()
End
End Sub