新建From1（窗体），新建Command1（按钮CommandButton），代码：

运行结果：

原理：

关于时间请参考《VB6 利用API获得时间戳精确到毫秒并计算开始和结束时间的差到天日时分秒毫秒，子函数 f_TimeStampToStr》，地址：http://manongku.com/p1772306.html 

现在提供类clsStringBuilder.cls：

调用方法：

运行结果：

测试下速度，代码如下：

运行结果：

8203/344=23.84倍