Visual Basic - Numeros primos

Hola sera que me puedan ayudar ayuda sobre como codigo para detectar numeros primos gracias por su ayuda

Puedes usar lo siguiente
Private Function Primo()
Dim DividendoTemp As Double, MaximoDivisor As Integer, ContadorDivisor As Integer
DividendoTemp = Dividendo
MaximoDivisor = Int(Sqr(DividendoTemp))
If DividendoTemp = 0 Or DividendoTemp = 1 Then 'Caso 0 y 1
Primo = "Error"
Exit Property
ElseIf MaximoDivisor = 1 Then 'caso 2 y 3
Primo = "Primo"
Exit Property
Else
For ContadorDivisor = 2 To MaximoDivisor ' caso de 4, +00
If (DividendoTemp / ContadorDivisor) - Int(DividendoTemp / ContadorDivisor) = 0 Then
Primo = "Compuesto"
Exit Property
End If
Next
End If
Primo = "Primo"
End function

Suerte

Prueba este que es mas corto y siempre gusta mas...

Dim Num as Integer, x as integer, OK as Boolean
Num = Inputbox("Introduce un valor")
x = 2
Ok = True
Do While x < Num And OK
OK = Num Mod x <> '
x = x + 1
loop
Select case OK
Case true
Print "El numero "; Num ; "es primo"
Case false
Print " El numero "; Num ; "NO es primo"
end select

use ese algoritmo y solo me da 1 y 2 como primos, de allí todos los demás números los tira como no primos, sabes como hacer para que me de la respuesta bien para otros números?