急求VBScript编码:在字符串指定位置插入标签

[jbeta07]

用 VBScript 编码实现以下效果：
判断一字符串 myString 的长度是否大于或等于 60.如果是，则在 myString 中每隔 60 个字符插入一个<BR>标签，也就是在第61、121、181……(60的倍数+1)个字符的位置插入<BR>.
注意：要求是在原来的字符串中插入<BR>，而不能将原有的字符改变
如果你的代码能实现该效果，请你说明一下你用到的语句、函数等

[number123456]

        aaa = "abcdefg"
	function insert(a,length)
		result = ""
		if len(a) > length then
			leftStr = left(a,length)
			rightStr= right(a,len(a)-length)
			result = leftStr & "<br>" & insert(rightStr,length)
		else
			result = a
		end if
		insert = result
	end function
	Response.write insert(aaa,2)

输出结果是：
ab<br>cd<br>ef<br>g

[wcwtitxu]

With New RegExp
	.Pattern = "[\d\D]{60}"
	.Global = True
	htmlCode = .Replace(htmlCode, "$&<br/>")
End With