Data Type VB.Net Tutorial

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