Imports System
Public Class MainClass
Shared Sub Main()
'Declare variables
Dim strName1 As String, strName2 As String
'Get the names
strName1 = "Sydney"
strName2 = "Vancouver"
'Is one of the names Sydney?
If strName1 = "Sydney" Or strName2 = "Sydney" Then
System.Console.WriteLine("One of the names is Sydney.")
Else
System.Console.WriteLine("Neither of the names is Sydney.")
End If
End Sub
End Class