Imports SystemClass Sample Public Shared Sub Main() Dim j1 As String = "abc", j2 As String = "abc" Console.WriteLine(j1.CompareTo(j2)) Console.WriteLine(j1.CompareTo(CObj(j2))) End Sub 'MainEnd Class