Private Sub GetPrim()
Dim i As Long, lBisZahl As Long
Dim lCurrentPrim As Long
Dim lEndeZahl As Long
Dim lStart As Long, lEnde As Long
Dim sOut As String
Dim bitPrim As clsBitArray
Dim lStep As Long
 
Set bitPrim = New clsBitArray
 
 
  lBisZahl = Text1.Text - 1
 
  lStart = GetTickCount
 
  bitPrim.Bits = lBisZahl
 
  lCurrentPrim = 2
  lEndeZahl = (lBisZahl + 1) / 2
 
  'Primzahl 2 extra beachten
  For i = 4 To lBisZahl Step 2
    bitPrim.Bit(i) = True
  Next i
 
  For lCurrentPrim = 3 To lEndeZahl
    If bitPrim.Bit(lCurrentPrim) = False Then
      ' Hier werden nur die ungeraden Vielfachen der Primzahl durchlaufen,
      ' da geradzahlige Vielfache immer geradzahlig sind und durch den ersten 
      ' Schritt
      ' mit 2 sowieso herausgeflogen sind
      lStep = lCurrentPrim + lCurrentPrim
      For i = lCurrentPrim * 3 To lBisZahl Step lStep
        bitPrim.Bit(i) = True
      Next i
    End If
  Next lCurrentPrim
 
  lEnde = GetTickCount
  sOut = "Dauer der Berechnung: " & lEnde - lStart & "ms" & vbCrLf
  MsgBox sOut
End Sub