点击下载此附件

      A = Me.Text0

    L = Len(A) \ 32 + 1

    If L > 0 Then
        For I = 1 To L
            B = Left(A, 32)
            A = Mid(A, 33)
            'MsgBox A, , B
            If Len(B) > 0 Then Me.List5.AddItem Format(I, String(Len(L), "0")) & ". " & B
        Next

    End If