Module GetHashCode
Sub Main()
DisplayHashCode("")
DisplayHashCode("a")
End Sub
Sub DisplayHashCode(Operand As String)
Dim HashCode As Integer = Operand.GetHashCode()
Console.WriteLine("The hash code for ""{0}"" is: 0x{1:X8}, {1}", Operand, HashCode)
End Sub
End Module