Compile and Execute VB.Net Online

Module Module1  
    Private Property ItNumInput As String  
    Sub Main()  
        'TASK 1: AUCTION SETUP'  
        'Declaration'         Dim ItNum(10), Rprice(10), bid(10), min10, InputInt, bidder(10), BuID(10), NewItNum, NewBuID, ItemSelect As Integer         Dim descrip(10), descripInput As String         Dim ExistingBuID As Boolean  
        Dim TotFees, newBid, totZeroBid, TotunmetReserve, TotItSold, totbid(10) As Integer         Dim sold(10) As String  
        'Initialisation'         For c = 1 To 10             bid(c) = 0         Next         min10 = 1         NewItNum = 0         NewBuID = 8000         ExistingBuID = False  
        'Seller inputs item details'         While (min10 < 11)             Console.Write("ENTER THE DETAILS FOR A NEW ITEM No:  ")             Console.WriteLine(min10)  
            Console.WriteLine("Description")             descripInput = Console.ReadLine()             descrip(min10) = descripInput  
            Console.WriteLine("Reserve Price:")             InputInt = Console.ReadLine()             Rprice(min10) = InputInt             NewItNum = NewItNum + 1             ItNum(min10) = NewItNum  
            Console.Write("Item placed for auction. Your Item Number is: ")             Console.WriteLine(NewItNum)             Console.WriteLine("        ")             min10 = min10 + 1         End While