'************************************** ' Name: prime number ' Description:a function that return if ' a number is prime or not. really simple ' to implement. ' By: Antonio Gomez Machorro ' ' ' Inputs:None ' ' Returns:None ' 'Assumes:None ' 'Side Effects:None '************************************** Private Function numPrimo(Numero As Integer) As Boolean Dim y, num, count As Integer For y = 2 To 9 num = Numero Mod y If num > 0 Then count = count + 1 If count > 7 Then Return True End If End If Next End Function