录入身份证号的宏

今天朋友说要录一个关于所在单位的人员信息的表格（真搞不懂，出生开始怎么要填那么多表），
表格上有一项是身份证号，但是每个号码占一个单元格如下图：
________________________________________________________
｜1｜2｜3｜4｜5｜6｜7｜8｜9｜0｜1｜2｜3｜4｜5｜         
｜1｜2｜3｜4｜5｜6｜7｜8｜9｜0｜1｜2｜3｜4｜5｜6｜7｜8｜

于是七拼八凑的写了个宏，还好，勉强可以用，特此把VBA代码贴在此地，以后再研究学习。
Attribute VB_Name = "模块1"
Sub 录入身份证号()
Attribute 录入身份证号.VB_ProcData.VB_Invoke_Func = "t/n14"
    personid = InputBox("身份证号码", "身份证号码", vbOKCancel)
    idlength = Len(personid)
   
    If (idlength = 15 Or idlength = 18) Then
        setPersonID idlength, personid
    Else
        MsgBox