Module Module1
Sub Main()
Dim str, str2 As String
Console.WriteLine("Enter Any string")
str = Console.ReadLine()
Console.WriteLine(str)
Console.WriteLine("Enter two string")
str2 = Console.ReadLine()
Console.WriteLine(str2)
If (str = str2) Then
Console.WriteLine("string are compare.")
Else
Console.WriteLine("string are not same compare.")
End If
Console.Read()
End Sub
End Module
Sub Main()
Dim str, str2 As String
Console.WriteLine("Enter Any string")
str = Console.ReadLine()
Console.WriteLine(str)
Console.WriteLine("Enter two string")
str2 = Console.ReadLine()
Console.WriteLine(str2)
If (str = str2) Then
Console.WriteLine("string are compare.")
Else
Console.WriteLine("string are not same compare.")
End If
Console.Read()
End Sub
End Module