modTimeStampToStr.bas这个文件在本网站下载。

新建From1（窗体），新建Text1（TextBox，MultiLine选True，ScrollBars选3），Command1-2（按钮CommandButton），代码：

Private i&, strA$, lngTickStartTime&, lngTickEndTime&

Private Sub Command1_Click()
    Text1.Text = "a"

    Text1.Visible = False
    lngTickStartTime = GetTickCount    '获取开始时间 ----------------需要计算时间的代码 V----------------

    For i = 1 To 10000
        Text1.Text = Text1.Text & "a"
    Next
    lngTickEndTime = GetTickCount    '获取结束时间 ----------------需要计算时间的代码 A----------------

    strShow = f_TimeStampToStr(lngTickEndTime - lngTickStartTime, 0)
    Text1.Visible = True
    
    MsgBox "1 使用了" & strShow, vbInformation, "提示"
End Sub

Private Sub Command2_Click()
    Text1.Text = "a"
    strA = Text1.Text

    lngTickStartTime = GetTickCount    '获取开始时间 ----------------需要计算时间的代码 V----------------
    For i = 1 To 10000
        strA = strA & "a"
    Next

    Text1.Text = strA
    lngTickEndTime = GetTickCount    '获取结束时间 ----------------需要计算时间的代码 A----------------
    strShow = f_TimeStampToStr(lngTickEndTime - lngTickStartTime, 0)

    Text1.Visible = True

    MsgBox "2 使用了" & strShow, vbInformation, "提示"
End Sub

Command1_Click运行结果：

34秒656毫秒

Command2_Click运行结果：

78毫秒