在下代码在运行时，如果“ID号”的长度不够7位，则会报错。请问，如何设计条件判断“ID号”字段的长度？谢谢

Dim dr As DataRow

Dim name As String =Tables("设备经费管理").Current("支付记录_经手人1")

Dim idh As String =Tables("设备经费管理").Current("支付记录_经1员工号")

dr = DataTables("内部通讯录").Find("姓名 = \'" & name & "\'")

If dr IsNot Nothing Then \'如果找到的话

    If Tables("内部通讯录").Current.isnull("ID号")=False Then

            MessageBox.Show("ID号倍数不对,不是7位!")

        Else

            Tables("设备经费管理").Current("支付记录_经1员工号")= dr("ID号").tostring().substring(3,4)

            MessageBox.Show("谢谢!")

        End If

        

    Else

        MessageBox.Show("ID号为空!非员工,不能作为经手人! 如信息不全,请联系管理员!")

    End If

end if