Imports System

Public Module Module1

    Public Sub Main()

        Dim Days, Rainfall, TotalRain as Integer

        Days = 0

        Console.WriteLine("Please input the amount of rain that you had today. (mm) ")

        Rainfall = Console.ReadLine

        TotalRain = Rainfall + TotalRain

        Days = Days + 1

        While TotalRain < 250

            Console.WriteLine("Please input the amount of rain that you had today. (mm) ")

            Rainfall = Console.ReadLine

            TotalRain = Rainfall + TotalRain

            Days = Days + 1

        End While

        Console.WriteLine("It took " & Days & " day(s) for 250 mm to fall ")

    End Sub

End Module