Export the query once manually. As you do so, click the Advanced button
in the text export wizard, and create and save an import/export
specification that uses ~ as the delimiter.
Subsequently, pass the name of this specification when you call
DoCmd.TransferText.