•Private
Sub btnAlphabetize_Click(...) _
• Handles btnAlphabetize.Click
• Dim firstWord, secondWord, temp As
String
• firstWord = txtFirstWord.Text
• secondWord = txtSecondWord.Text
• If (firstWord > secondWord) Then
• temp = firstWord
• firstWord = secondWord
• secondWord = temp
• End If
• txtResult.Text = firstWord & "
before " & _
• secondWord
•End
Sub