Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim sum As Integer = 0
        Dim numbers(3) As Integer
        Dim numberstotal As Integer = 4
        Dim medium As Double = 0
        Dim numsabovemedium = 0

        For i = 0 To numberstotal - 1

            numbers(i) = InputBox("Insert number " & i + 1, "Medium , # Above Medium",,,)

            sum = sum + numbers(i)

        Next

        medium = sum / numberstotal

        For i = 0 To numberstotal - 1
            If numbers(i) > medium Then
                numsabovemedium = numsabovemedium + 1

            End If

        Next


        Label1.Text = "The medium is " & medium & "."
        Label2.Text = "The total of numbers above the medium is " & numsabovemedium


    End Sub
End Class