2楼代码，3楼代码，针对英文字符，如果你用于中文，那需要换个方法计算宽度。
汉字的宽度是英文字母的2位，但使用 len 时，长度都是1，错误就产生在这里。

LenB(StrConv(字符串, vbFromUnicode))
用这个命令代码那个 len(字符串)

lenb 占用字节数，汉字算2个，英文算1个，但 Unicode 也算2个
所以，直接lenb(字符串）的结果是 len（字符串）的2位，错误。

StrConv(字符串, vbFromUnicode) 把VB Unicode 字符串，转化为 ANSI 格式字符串
如果保存这种字符中，使用 byte 数组

楼主说的不错！第一次用数字测试的时候成功了！
加入自己程序用的是汉字排版,弄的时候失效了！
数字 12 和符号 .. 都是2个加起来才等于一个汉字的空格大小！
-----------↓
想请问楼主,,看了你的回复,,我也弄了老半天了,,
还是不懂~怎么转换为汉字类型的尼？
尤其是代码怎么写啊~承认自己愚昧！
自己越改越乱~~~！！！

Open App.Path & "\数据.txt" For Append As #1
'Print #1,text1 & space(15-len(text1)) & text2
Print #1,text1 & space(15-LenB(StrConv(text1, vbFromUnicode))) & text2
Close #1

谢谢楼主！自己又突破这小小的瓶颈了！值得学习了！