'Esto lo he hecho para testear la funcion.
Private Sub Form_Load()
    Dim j  As Integer
    For j = 0 To 100
        if isPrime(j)  Then
            Debug.Print j & ", "
        End If
    Next j
End Sub
 
Function isPrime(ByVal iNum As Integer) As Boolean
    If (iNum < 2) Then isPrime = False: Exit Function
    If (iNum < 4) Then isPrime = True: Exit Function
    If (iNum Mod 2 = 0) Then isPrime = False: Exit Function
 
    Dim iMax As Integer: iMax = CInt(Sqr(CDbl(iNum)))
    Dim i    As Integer
 
    For i = 3 To iMax Step 2
        If (iNum Mod i = 0) Then isPrime = False: Exit Function
    Next i
 
     isPrime = True
End Function
 

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If isPrime(Val(TextBox1.Text)) Then
            Label1.Text = ("El número es Primo")
        Else
            Label1.Text = ("El número no es Primo")
        End If
    End Sub
 
    Private Function isPrime(ByVal iNum As Integer) As Boolean
        ' Versión traducida de la antes mensionada
        ' función isPrime para Visual Basic Express 2010
    End Function
End Class
 

' Agrega en un proyecto standart, 2 TextBoxes, 1 ListBox y 1 Button.
' Codigo del Form:
Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim j  As Integer
      Dim iStart As Integer
      Dim iLimit As Integer
 
      iStart = Val(Text1.text) 'Extrae el valor del TextBox de inicio en el formulario
      iLimit = Val(Text2.text) 'Extrae el valor del TextBox de limite en el formulario
 
      For j = iStart To iLimit
          if isPrime(j)  Then
              List1.Add j 'Agrega los numeros primos encontrados al ListBox en el formulario
          End If
      Next j
  End Sub
 
  Function isPrime(ByVal iNum As Integer) As Boolean
      If (iNum < 2) Then isPrime = False: Exit Function
      If (iNum < 4) Then isPrime = True: Exit Function
      If (iNum Mod 2 = 0) Then isPrime = False: Exit Function
 
      Dim iMax As Integer: iMax = CInt(Sqr(CDbl(iNum)))
      Dim i    As Integer
 
      For i = 3 To iMax Step 2
          If (iNum Mod i = 0) Then isPrime = False: Exit Function
      Next i
 
      isPrime = True
  End Function
End Class