Imports System
Public Class MainClass
Public Shared Sub Main()
Dim strFirst As String = "Goodbye"
Console.WriteLine(CompareStrings(strFirst, strFirst))
End Sub
Private Shared Function CompareStrings(str1 As String, str2 As String) As String
Dim cmpVal As Integer = str1.CompareTo(str2)
If cmpVal = 0 Then
Return "The strings have the same value!"
Else
If cmpVal > 0 Then
Return "The first string is greater than the second string!"
Else
Return "The second string is greater than the first string!"
End If
End If
End Function
End Class