Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine(getAverage(70, 80, 90))

    End Sub

    Function GetAverage(ByVal Num1 As Double, ByVal Num2 As Double, ByVal Num3 as Double)as Double

        Dim Average as Double

        Average = (Num1 + Num2 + Num3)/ 3

        If Average > 100 Then

            Return 100

        Else

            Return Average

        End If

    End Function

End Module