Kelime Karakter Sayısı Karşılaştırma ( Word Comparison )

Public Class Form1

    Dim word1, word2 As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        word1 = TextBox1.Text

        word2 = TextBox2.Text

        If Len(word1) > Len(word2) Then

            MsgBox(TextBox1.Text & " Kelimesinin karakter sayısı daha fazladır.", MsgBoxStyle.Information, "Karşılaştırma Sonucu")

        ElseIf Len(word1) < Len(word2) Then

            MsgBox(TextBox2.Text & " Kelimesinin karakter sayısı daha fazladır.", MsgBoxStyle.Information, "Karşılaştırma Sonucu")

        Else

            MsgBox("Kelimelerin karakter sayıları eşittir.", MsgBoxStyle.Information, "Karşılaştırma Sonucu")

        End If

    End Sub

End Class