标题：字符串转换提示错误问题

41132319521114051541，     41132319521114051541，     41，           肢体一级

41132319820621051952B1， 41132319820621051952B1，  52B1

请老师帮忙解决下，谢谢

代码如下：

Dim Result As DialogResult

Dim zt1 As String = "肢体一级"

Dim zt2 As String = "肢体二级"

Result = MessageBox.Show("导入残疾证号吗？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

    For Each dr As DataRow In DataTables("脱贫人口信息表").DataRows

        If dr.isnull("证件号码") = False AndAlso dr("证件号码").length = 20 Then

            dr("残疾证号") = left(dr("证件号码"), 20)

            dr("残疾等级") = Right(dr("证件号码"), 2)

        ElseIf dr.isnull("证件号码") = False AndAlso dr("证件号码").length = 22 Then

            dr("残疾证号") = left(dr("证件号码"), 22)

            dr("残疾等级") = Right(dr("证件号码"), 4)

        End If

        

            If dr("残疾等级") = 41 Then

                dr("残疾类型") = zt1

            ElseIf dr("残疾等级") = 42 Then

                dr("残疾类型") = zt2

            End If

      

    Next

    DataTables("脱贫人口信息表").Save

    MessageBox.Show("残疾证号已全部导入。", "提示")

Else

    MessageBox.Show("残疾证号未全部导入，请重新操作。", "提示")

End If