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

Private Sub Command1_Click()
    Dim strA As String
    Dim strB As String
    Const lngMax As Long = 100000000

    Dim lngTickStartTime As Long
    Dim lngTickEndTime As Long

    lngTickStartTime = GetTickCount    '获取开始时间 ----------------需要计算时间的代码 V----------------
    strA = Space(lngMax)
    lngTickEndTime = GetTickCount      '获取结束时间 ----------------需要计算时间的代码 A----------------

    '将时间差值输出
    Dim strShow As String
    strShow = f_TimeStampToStr(lngTickEndTime - lngTickStartTime, 0)
    Debug.Print "1: " & strShow
    
    strA = String(lngMax, " ")
    strShow = f_TimeStampToStr(lngTickEndTime - lngTickStartTime, 0)
    Debug.Print "2: " & strShow
End Sub

运行结果：

1: 125毫秒
2: 125毫秒

多次计算都是一样的速度。

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