Module Averages

    Sub Main()
        Dim Number1 As Double = 0.0
        Dim Number2 As Double = 0.0
        Dim Average As Double = 0.0

        InputNumbers(Number1, Number2)
        Average = CalculateAverage(Number1, Number2)
        OutputAverage(Average)
    End Sub

    ' Module for taking input
    Sub InputNumbers(ByRef Number1 As Double, ByRef Number2 As Double)
        Console.WriteLine("Enter the first number:")
        Number1 = Double.Parse(Console.ReadLine())

        Console.WriteLine("Enter the second number:")
        Number2 = Double.Parse(Console.ReadLine())
    End Sub

    ' Module for calculating average
    Function CalculateAverage(ByVal Number1 As Double, ByVal Number2 As Double) As Double
        Return (Number1 + Number2) / 2
    End Function

    ' Module for displaying output
    Sub OutputAverage(ByVal Average As Double)
        Console.WriteLine("The average is: " & Average)
        Console.ReadLine() ' To keep the console window open
    End Sub
End Module