Visual Basic 6.0 Do Loop Exit