Folgende kleine Funktion überprüft,
    ob die angegebene Zahl eine Primzahl ist:

   Function IstPrimZahl(Zahl As Integer)
      Dim i As Integer
      IstPrimZahl = True
      For i = 2 To Int(Sqr(Zahl))
         If (Zahl Mod i = 0) Then
            IstPrimZahl = False
            Exit For
         End If
      Next i
   End Function
      Vielen Dank an Heino,
      der meine bisherige Routine durch diese ersetzt hat.