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

运行结果：

原理：

关于时间请参考：

《VB6 利用API获得时间戳精确到毫秒并计算开始和结束时间的差到天日时分秒毫秒，子程序 f_TimeStampToStr》

现在提供类clsStringBuilder.cls：

调用方法：

运行结果：

测试下速度，代码如下：

运行结果：

344毫秒 1. Len=200000 Val=BCBCBCBCBC
8秒203毫秒 2. Len=200003 Val=Hi_BCBCBCB

8203/344=23.84倍