Compare two Strings
Imports System Imports System.Collections Public Class MainClass Shared Sub Main(ByVal args As String()) ' create some Strings to work with Dim s1 As [String] = "abcd" Dim s2 As [String] = "ABCD" Dim result As Integer ' hold the results of comparisons ' compare two Strings, case sensitive result = [String].Compare(s1, s2) Console.WriteLine( _ "compare s1: {0}, s2: {1}, result: {2}" _ & Environment.NewLine, s1, s2, result) ' overloaded compare, takes boolean "ignore case" '(true = ignore case) result = [String].Compare(s1, s2, True) Console.WriteLine("Compare insensitive. result: {0}" _ & Environment.NewLine, result) End Sub End Class