• I think

    i = 0

    Do While i < 1

    Should be

    i = 0

    Do While i < 10