如何用Excel 的VBA实现数字汉字拆分?

一些文本，形如:

12图片1234
233漂亮图片12345
20美图图11

如何用excel中的VBA实现将其中的中文(英文字母)和数字分开呢?比如，加上一个TAB分隔符?

这里是我查到的一个思路:方法是先用LEN测试文本长度,然后用MID逐个取出，用CODE测试，如果值>128则是汉字，<128是英文
(我不会用VBA，能否介绍得详细些，多谢了)

满意答案

具体方法是:
Sub z()
Dim s As String, i As Long
s = "aa往ddd往aa"
i = 1
Do While i < Len(s) - 1
If (Asc(Mid(s, i, 1)) And 128) <> (Asc(Mid(s, i + 1, 1)) And 128) Then
s = Left(s, i) & "^" & Right(s, Len(s) - i)
i = i + 1 '1为插入字符"^"的长度,注意要一致,否则进入死循环
End If
i = i + 1
Loop
MsgBox s
End Sub