Imports System
Public Module Module1
Public Sub Main()
Dim result As Integer = 0
Dim num1 As Integer = 17
Dim num2 As Integer = 8
result = If ((num1 > num2), num1, num2)
Console.WriteLine("Largest Number is: {0}", result)
End Sub
End Module
' run:
'
' Largest Number is: 17
'