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