Why does a "do until" loop stop the subroutine?

[GIS2013]

Hello,
Any idea why the first loop stops the sub, it doesn't proceed to the second loop..

    Do Until IsDate(EnteringDay) = True
        EnteringDay = InputBox(prompt:="What's the date? Enter in this format 01/01/2015", _
        Title:="Weight Watchers", Default:=Format(Now(), "dd/mm/yyyy"))
            If IsDate(EnteringDay) = False Then _
                EnteringDay = InputBox(prompt:="What's the date? Enter in this format 01/01/2015", _
                Title:="Weight Watchers", Default:=Format(Now(), "dd/mm/yyyy"))
    Loop
       
    Do Until IsNumeric(EnteringWeight) = True
        EnteringWeight = InputBox(prompt:="What's your weight? Enter in this format 75.00", _
        Title:="Weight Watchers", Default:="75.00")
            If IsNumeric(EnteringWeight) = False Then _
                EnteringWeight = InputBox(prompt:="What's your weight? Enter in this format 90.00", _
                Title:="Weight Watchers", Default:="90.00")
    Loop