事前にChDirをしても、ツール→オプション→全般→カレントフォルダで設定しているフォルダを見に行ってしまいます。
sub テキスト() * ChDrive "d" ChDir "aaa" ' 又は ChDir "d:\aaa" * end sub