<font color=green>' Deklaration</font>
Private Declare Function VBCRC32 Lib "vbex32b.dll" _
  (ByRef sQuellStr As String) As Long

    Dim a As String
    Dim p As Long
    Dim i As Long
 
    For i = 0 To 100
       a = a + String$(1000, "i")
    Next
    <font color=green>' a = a + a '200.000
    ' a = a + a '400.000
    ' a = a + a '800.000
    ' a = a + a '1.600.000
    ' a = a + a '3.200.000
    ' a = a + a '6.400.000</font>
    MsgBox "Start ..."
    p = Timer
    VBCRC32 a
    MsgBox Str$(Timer - p)
    End