新建From1（窗体），新建Text1（TextBox），Command1到4（按钮CommandButton），代码：

从Command1到Command4的运行结果：

1使用了5秒421毫秒       64   提示
2使用了4秒828毫秒       64   提示
3使用了2秒843毫秒       64   提示
4使用了656毫秒         64    提示

方法4完胜！同样适合RichTextBox。

关于精确时间，请参考《VB6 利用API获得时间戳精确到毫秒并计算开始和结束时间的差到天日时分秒毫秒，子函数 f_TimeStampToStr》

另外我写了个 子程序 s_appendObjText(objX As Object, strW As String)

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

Private Sub Command1_Click()
    Dim strW As String
    strW = "你好，码农库。" & Now & vbCrLf
    Call s_appendObjText(Text1, strW)
End Sub

Private Sub s_appendObjText(objX As Object, strW As String)
    objX.SelStart = Len(objX)
    objX.SelText = strW
End Sub