主题：网络环境下的编号

Select e.DataCol.Name
    Case "录入日期","录入人"
        If e.DataRow.IsNull("录入日期") OrElse e.DataRow.IsNull("录入人") Then
            e.DataRow("派单id") = Nothing
            'msgbox(18)
        Else
            If QQClient.Ready = False Then
                PopMessage("QQClient未启动,无法生成编号!","提示",PopIconEnum.Infomation,5)
            Else
                Dim bh As String = e.DataRow("录入人") & "-" &  Format(e.DataRow("录入日期"),"yyyyMM")
                Dim rt As String =  QQClient.SendWait(":g" & bh & "g:")
                Dim id As Integer
                If rt > "" Then
                    If  Integer.TryParse(rt,id)  Then
                        e.DataRow("派单id") = bh & "-" & Format(id,"0000")
                        msgbox("新增了派单")
                    Else
                        PopMessage("服务器返回错误信息:" & rt,"提示",PopIconEnum.Infomation,5)
                    End If
                Else
                    PopMessage("服务器无响应,无法生成编号!","提示",PopIconEnum.Infomation,5)
                End If
            End If
        End If
End Select

4位录入人,4位年,2位月。。。

但录入人有可能是3个字，或2个字。

怎么改呢？