Excel利用VBA控制输出txt

我有一张excel表
有4列:A列数字  B列姓名  C列身份证  D列3至6位随机码
例如：excel表1
  A           B              C                 D
000001      张三     11111111111111111       5255
000002      张小三   11111111333111122       556
000003      张小四   61111111333111122       55655
输出TXT
000001    张三      11111111111111111     5255
000002    张小三    11111111333111122      556
000003    张小四    61111111333111122    55655
转成txt有些许要求：
1，A与B列之间要求4个空格
2，B与C列之间两个字的名字后面6个空格，3个字的名字后面4个空格。这样C列身份证前面就在一排了
3，C与D列之间，D列如果是3位数前面6个空格，4位5个空格，5位4个空格。这样效果是D列像右对齐一样。

-----------------------------------------------
我写的VBA只能固定每列之间4个空格，不会写如何判断名字是2位还是3位，输出几个空格，想了一下午，没想明白。希望高手或者写过的朋友能给我说明一下，或者给写出个样来，我学习学习，我对VBA不太会。
再次谢谢大家！ Excel VBA txt 转换 列 --------------------编程问答-------------------- 用LEN函数判断名字有几个字就可以。 --------------------编程问答-------------------- 别沉了啊，有知道的帮助下哈 --------------------编程问答-------------------- 你既然能在B列C列之间加4个空格，那在加之前先判断B列的长度

if len（b）= 4 then加6个空格
if len（b）= 6 then加4个空格

补充：VB ,  VBA