Какой бейсик быстрее

Option Explicit
 
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function WaitForMultipleObjects Lib "kernel32" (ByVal nCount As Long, lpHandles As Long, ByVal bWaitAll As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Private Declare Function ResumeThread Lib "kernel32" (ByVal hThread As Long) As Long
 
Private Const INFINITE = -1&
Private Const CREATE_SUSPENDED = &H4
 
Private Count As Long
 
Public Function Calc(ThreadCount As Long, TimeMS As Long) As Double
    Dim i         As Long
    Dim threads() As Long
    Dim values()  As Double
    Dim Begin     As Long
    Dim ptr       As Long
    Count = 100000000 \ ThreadCount
    
    If ThreadCount > 1 Then
        ReDim threads(ThreadCount - 2)
        ReDim values(ThreadCount - 2)
        
        For i = 0 To ThreadCount - 2
            values(i) = i * Count
            threads(i) = CreateThread(ByVal 0&, 0, AddressOf Thread, values(i), CREATE_SUSPENDED, 0)
        Next
        
        ' Т.к. первый вызов идет через DLLFunctionCall
        ResumeThread 0
        
        For i = 0 To ThreadCount - 2
            ResumeThread threads(i)
        Next
    
        Begin = GetTickCount
        
        Calc = (ThreadCount - 1) * Count
        Call Thread(Calc)
        
        WaitForMultipleObjects ThreadCount - 1, threads(0), True, INFINITE
    Else
        Begin = GetTickCount
        Calc = (ThreadCount - 1) * Count
        Call Thread(Calc)
    End If
    
    For i = 0 To ThreadCount - 2
        Calc = Calc + values(i)
    Next
    
    TimeMS = GetTickCount - Begin
End Function
 
Public Sub Thread(Value As Double)
    Dim i       As Long
    Dim cStart  As Long
    Dim cEnd    As Long
    
    cStart = Value + 1: cEnd = cStart + Count: Value = 0
    
    For i = cStart To cEnd
        Value = Value + 1 / i
    Next
End Sub

Option Explicit
 
Private Type ThreadCalc
    Result  As Double
    Count   As Long
End Type
 
Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Any) As Long
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Any) As Long
Private Declare Function WaitForMultipleObjects Lib "kernel32" (ByVal nCount As Long, lpHandles As Long, ByVal bWaitAll As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Const INFINITE = -1&
 
Private Sub Thread(Value As ThreadCalc)
    Dim i   As Long
    Dim s   As Double
 
    For i = 1 To Value.Count
        s = s + 1 / i
    Next
    
    Value.Result = s
End Sub
Public Function Calc(ThreadCount As Long, TimeMS As Long) As Double
    Dim i         As Long
    Dim threads() As Long
    Dim values()  As ThreadCalc
    Dim Count     As Long
    Dim Begin     As Currency
    Dim Last      As Currency
    Dim Freq      As Currency
    
    QueryPerformanceFrequency Freq
    
    Count = 1000000000 \ ThreadCount
    
    ReDim threads(ThreadCount - 1)
    ReDim values(ThreadCount - 1)
        
    For i = 0 To ThreadCount - 1
        values(i).Count = Count
        threads(i) = CreateThread(ByVal 0&, 4096, AddressOf Thread, values(i), 0, 0)
    Next
    
    WaitForMultipleObjects 0, 0, 0, 0
    
    QueryPerformanceCounter Begin
    
    WaitForMultipleObjects ThreadCount, threads(0), True, INFINITE
    
    QueryPerformanceCounter Last
    
    TimeMS = (Last - Begin) / Freq * 1000
End Function