Numero Primo En Visual Basic

Public Class Form1

    Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
        Dim residuo As Double
        Dim contador As Integer
        Dim i As Integer

        contador = 0  'Reinicia la variable contador a cero 

        For i = 1 To Val(textBox1.Text)
            residuo = Val(textBox1.Text) Mod i
            If residuo = 0 Then
                contador = contador + 1 'No puede sumar valores si estaba entre comillas "..." 
            End If
        Next

        If contador <= 2 Then
            MsgBox("Es un numero primo")
        Else
            MsgBox("No es un numero primo")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        textBox1.Text = " "
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        End
    End Sub
End Class