求教一个导出TXT的代码

我想调整一个导出TXT的代码中的格式，就是调整每列之间的空格。。。哪位大哥帮帮忙吧，附件中我上传调整前和调整后的TXT文档，代码我贴下面。

Private Sub 导出TXT_Click()
    Dim conn As ADODB.Connection 'conn为连接
    Dim rs As New ADODB.Recordset  'rs为记录集
    Dim sql As String
Set conn = CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:\Downloads\船舶管理系统.mdb" & ";Jet OLEDB:Database Password="  '打开数据源
sql = "SELECT * FROM 打单表"
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenKeyset, adLockPessimistic

Open "D:\Downloads\dat\dc.txt" For Output As #1
For j = 0 To rs.Fields.Count - 1
Print #1, rs.Fields(j).Name; Space(9);
Next j
Print #1,
For i = 0 To rs.RecordCount - 1
For j = 0 To rs.Fields.Count - 1
s = Trim(rs.Fields(j) & "")
If s = "" Then
Print #1, s; Space(18);

Else
Print #1, s; Space(18 - LenB(StrConv(s, vbFromUnicode)));
End If
Next j
Print #1,
rs.MoveNext
Next i
Close #1
MsgBox "导出完成"
rs.MoveFirst
'"Shell "c:\windows\Notepad.exe " + App.Path + "\dat\dc.txt", vbNormalFocus

End Sub

点击下载此附件