잘되네요.. 감사합니다.
혹시나 아래 안되신다는 분들은 위에 글에 있는 코드를 복사 해서
메모장에 한번 복사하고
메모장에서 다시 VB 로 붙여넣기 해보세요

저도 런타임오류 막 떴는데 위와 같이 하니 잘 실행되네요.