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