lo que quiero es calcular si un numero es primo o no
a la primera si me lo calcula pero sin introduzca otro numero ya no me lo calcula siempre me muestra numero no primo.


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txt1.Text = "" Then
            If MsgBox("Favor de introducir u numero", MsgBoxStyle.Information, "ERROR") = MsgBoxResult.Ok Then
                txt1.Focus()
            End If

        Else
            For i = 1 To Val(txt1.Text)
                p = Val(txt1.Text) Mod i
                If p = 0 Then
                    d = d + 1
                End If
            Next i
            If d <= 2 Then
                If MsgBox("El numero es primo", MsgBoxStyle.OkCancel, "Numero primo") = MsgBoxResult.Ok Then
                    txt1.Text = ""
                    txt1.Focus()
                End If
            Else
                If MsgBox("El numero no es primo", MsgBoxStyle.OkCancel, "Numero no primo") = MsgBoxResult.Ok Then
                    txt1.Focus()
                End If
            End If
        End If
    End Sub