Option Explicit
Private Sub cmdCompare_Click()
Dim Word As String
Word = txtFirst.Text
Dim Words As String
Words = txtSecond.Text
If StrComp(Word, Words, vbTextCompare) = 0 Then
lbl1.Caption = "Both Words Are The Same"
ElseIf StrComp(Word, Words, vbTextCompare) = -1 Then
lbl1.Caption = "First word comes before second word."
Else
lbl1.Caption = "Second word comes before first word."
End If
End Sub
Private Sub cmdDone_Click()
Unload Me
End Sub
Make this site my homepage