Need VBA code to display 1st PRIME number greater than value (N)

[JKwan]

using what Erik posted (too funny), this is what I came up

Private Function IsDecimal(Number) As Boolean
    Dim splitted() As String
    splitted = Split(Number, ".")
    If UBound(splitted) <> 0 Then
        IsDecimal = True
    End If
End Function
Private Function IsPrimeNumber(Number) As Boolean
    For i = 2 To Number - 1
        If IsDecimal(Number / i) = False Then
            IsPrimeNumber = False
            Exit Function
        End If
    Next i
    IsPrimeNumber = True
End Function
Public Function NextPrime(Number As Long) As Long
    Dim lCheckPrimeNumber As Long
    Dim bPrime As Boolean
    
    lCheckPrimeNumber = Number
    Do
        lCheckPrimeNumber = lCheckPrimeNumber + 1
        bPrime = IsPrimeNumber(lCheckPrimeNumber)
        If bPrime Then
            NextPrime = lCheckPrimeNumber
        End If
    Loop While Not bPrime
End Function