怎样使用VB使人名排序,

你是想对人名排序？还是想把人名对齐呀？
排序的话，按拼音序？
那就按首字母比较就是了。
把人名对齐，可以判断名字的汉字数，＝2的，中间加空格，＝3的不处理。

你这是说的哪里？是外联的数据库，还是控件，还是什么？
表达太不清晰了吧

a = "李资"
If Len(a) = 2 Then a = Left(a, 1) & Space(4) & Right(a, 1)
MsgBox a