Дано простое число. Составить функцию, которая будет находить следующее за ним простое число

FUNCTION NextP (p AS LONG) AS LONG
   IF p = 2 THEN NextP = 3
   IF p = 3 THEN NextP = 5
   IF p = 5 THEN NextP = 7
 
   IF p >= 7 THEN
      FOR i = p + 2 TO 2 * p STEP 2
         dm = SQR(p) + 1
         FOR d = 3 TO dm STEP 2
            IF i MOD d = 0 THEN GOTO 100
         NEXT d
         NextP = i
         EXIT FUNCTION
100
      NEXT i
   END IF
END FUNCTION

Option Explicit
 
Private Sub Form_Load()
    Dim d#, i&, ll&()
    ll = Primes(101)
    Do: d = 0
        While Not (d > 0 And d < 98): d = Val(InputBox("Введите простое число" & vbLf & "от 1 до 97", , 1)): Wend
        For i = 0 To UBound(ll)
            If d = ll(i) Then
                MsgBox "Простое число: " & d & vbLf & "Следущее: " & ll(i + 1)
                End
            End If
        Next
    Loop
    
End Sub
 
Function Primes(ByVal max&) As Long()
    Dim i&, ii&, n&
    If max > 1 Then
    ElseIf max = 1 Then
        ReDim ll&(0): ll(0) = 1: Primes = ll: Exit Function
    Else: Exit Function
    End If
 
    ReDim b(max) As Byte, ll&(Fix(max / Log(max) * 2))
    n = 1
    ll(0) = n: ll(n) = 2
    For i = 3 To Fix(Sqr(max)) Step 2
        If Not b(i) Then
            n = n + 1: ll(n) = i
            For ii = i * i To max Step i + i: b(ii) = True: Next
        End If
    Next i
    For i = i To max Step 2
        If Not b(i) Then n = n + 1: ll(n) = i
    Next i
    ReDim Preserve ll&(n): Primes = ll
End Function

Function NextP(ByVal p As Long) As Long
    On Error GoTo ToError
    Dim i As Long, j As Long
    Dim iAbs As Long, iLimit As Long
    Dim blnIsPrime As Boolean
    iAbs = Abs(p)
    If iAbs < 3 Then
        NextP = iAbs + 1
        Exit Function
    End If
    i = IIf(iAbs Mod 2, iAbs, iAbs + 1)
    Do Until blnIsPrime
        i = i + 2
        iLimit = CLng(Sqr(i)) + 1
        blnIsPrime = True
        For j = 3 To iLimit Step 2
            If (i Mod j) = 0 Then
                blnIsPrime = False
                Exit For
            End If
        Next j
    Loop
    NextP = i
    Exit Function
ToError:
    Select Case Err.Number
    Case 6
        MsgBox "Sorry, " & p & " is too large number"
    Case Else
        MsgBox "Sorry, an unforeseen error occured"
    End Select
End Function
 
 
Function NextP2(ByVal p As Double) As Double
    On Error GoTo ToError
    Dim d As Double, dd As Double
    Dim dAbs As Double, dLimit As Double
    Dim d1 As Double, d2 As Double
    Dim blnIsPrime As Boolean
    dAbs = Fix(Abs(p))
    If dAbs < 3 Then
        NextP2 = dAbs + 1
        Exit Function
    End If
    d1 = dAbs / 2
    d2 = Fix(d1)
    d = IIf(d1 > d2, dAbs, dAbs - 1)
    Do Until blnIsPrime
        d = d + 2
        dLimit = Fix(Sqr(d)) + 1
        blnIsPrime = True
        For dd = 3 To dLimit Step 2
            d1 = d / dd
            d2 = Fix(d1)
            If d1 = d2 Then
                blnIsPrime = False
                Exit For
            End If
        Next dd
    Loop
    NextP2 = d
    Exit Function
ToError:
    Select Case Err.Number
    Case 6
        MsgBox "Sorry, " & p & " is too large number"
    Case Else
        MsgBox "Sorry, an unforeseen error occured"
    End Select
End Function

Function pr(n) As Boolean
Dim j
Dim f As Boolean
 
If n > 2 Then
  f = True
  j = 2
  Do While j ^ 2 <= n And f = True
    If n Mod j = 0 Then f = False Else j = j + 1
  Loop
End If
 
pr = f
End Function
 
Private Sub Command1_Click()
Dim n, i
 
Do
n = Val(InputBox("Введите простое число n="))
Loop Until pr(n) = True
 
i = n + 1
Do While pr(i) = False
i = i + 1
Loop
MsgBox "Следующее простое число=" & i
 
End Sub