تکه کدی برای مقایسه اعداد

Dim C As Integer
Private Sub cmdComp_Click()
    C = StrComp(Text1.Text, Text2.Text)
    Select Case C
        Case 0: List1.AddItem Text1.Text + "=" + Text2.Text
        Case 1: List1.AddItem Text1.Text + ">" + Text2.Text
        Case -1: List1.AddItem Text1.Text + "<" + Text2.Text
    End Select
End Sub

Private Sub cmdExit_Click()
    End
End Sub