请教一个有难度的问题

Private Sub Command5_Click()             '转换按钮单击事件

Dim lngN As Long, strT As String, strTmp As String
    Dim lngL As Long, lngM As Long
    Dim n As Long
    Dim ChineseStrLen As Long   '中文字符的长度
    Dim m_Str1 As String, m_Str2 As String
    lngL = UBound(Split(谈话记录, vbCrLf))
   
    For lngN = 0 To lngL
       
        strTmp = Split(谈话记录, vbCrLf)(lngN)
        lngM = Len(strTmp)

        For i = 1 To lngM

            If Asc(Mid(strTmp, i, 1)) < 0 Then  '看字符的ASC 小于0的为中文
                ChineseStrLen = ChineseStrLen + 1 '循环计算出中文字符数量
            End If
        Next i

        m_Str1 = strTmp
        m_Str2 = StrConv(m_Str1, vbFromUnicode)
        If LenB(m_Str1) <> LenB(m_Str2) Then '如果存在英文字符或中英文混合字符

                    For n = 1 To lngM Step ChineseStrLen + (30 - ChineseStrLen) * 2  '设定步长为

ChineseStrLen + (30-ChineseStrLen)*2

                            DoCmd.SetWarnings False
                            DoCmd.RunSQL "INSERT INTO 谈话明细 (谈话记录) VALUES ('" & Mid

(strTmp, n, 30) & "')"
                            DoCmd.SetWarnings True

                    Next

        Else        '如果只有中文字符

                    For n = 1 To lngM Step 30   '设定步长为30

                            DoCmd.SetWarnings False
                            DoCmd.RunSQL "INSERT INTO 谈话明细 (谈话记录) VALUES ('" & Mid

(strTmp, n, 30) & "')"
                            DoCmd.SetWarnings True

                    Next
                   
        End If

       
    Next
   
   

End Sub