Imports System
Public Class Program
Public Shared Function Equal(ByVal str1 As String, ByVal str2 As String) As Boolean
Return str1 = str2
End Function
Public Shared Sub Main()
Dim s1 As String = "vb.net"
Dim s2 As String = "vb.net"
if (Equal(s1, s2))
Console.Write("Equal")
else
Console.Write("Not Equal")
End If
End Sub
End Class
' run
'
' Equal
'