NUMEROS PRIMOS EN VB.NET

Un número es primo únicamente cuándo es divisible entre uno y el mismo, evaluamos este proceso con un if, y un for, y claro se muestra el resultado con un messagebox.show

Diseño:

Codigo:
Dim p As Integer
p = Val(TextBox1.Text)

For i = 1 To p
   If (i <> 1 And i <> p) Then
       If (p Mod i) = 0 Then
           MessageBox.Show("no")
           Exit Sub
       End If
   End If
Next
MessageBox.Show("Si")

Pueden escribir sus comentarios o dudas.