I know it's tricky, but you will have to use the Tab() and Spc() functions.
With some test, you will get want you want.
Exemple of code:

 Print #1, vbCrLf; vbCrLf;
 Print #1, Tab(42); sDate; Tab(56); sDateInvoiced;
 Print #1, vbCrLf;
 Print #1, Spc(3); sPhoneNumber;

HTH