es simple

[jesicabarboza]

hola!!!!soy nueva en esto y queria saber si este codigo esta bien
la consigna es ingresar un numero e indicar si es primo o no:
el tema es que tengo dudas , y no me marca si esta mal!!!
Dim a, num, cont, I As Integer
Private Sub Command1_Click()
num = Text1
For I = num To 1
a = num Mod I
If a = 0 Then
cont = cont + 1
End If
Next

If cont = 2 Then
Label2 = "primo"
Else
Label3 = "no primo"
End If

les agradesco su ayuda
ah!!!! y como hago para sacar el divisor de dicho numero?