Private Plant(10) As CityWasteDisposal
For x = 1 To 12 WaterUsed(x) = CInt(InputBox("enter the amount of water used for week" + CStr(x))) Next