visual basic for applications do until loop