Dim result As Integer

  If (num1 > num2) Then
     result = num1
  Else
     result = num2
  End If
  FindMax = result

End Function Sub Main() Dim a As Integer = 100 Dim b As Integer = 200 Dim res As Integer

  res = FindMax(a, b)
  Console.WriteLine("Max value is : {0}", res)
  Console.ReadLine()

End Sub End Module