Imports System

Public Module Module1

    Public Sub Main()

        Dim data, count as integer

        Dim avg as decimal

        count = -1

        avg = 1

        Do

        Console.WriteLine("Enter data")

        data = console.readline()

        avg = data + avg    

        count = count + 1

        Loop Until data = -1

        avg = avg / count

        console.writeline(avg)

    End Sub

End Module