VB判断是否是素数

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i%, m%
        Dim Tag As Boolean
        m = Val(TextBox1.Text)
        Tag = True
        For i = 2 To m - 1
            If (m Mod i) = 0 Then
                Tag = False
            End If
        Next i
        If Tag Then
            Label1.Text = m & "是素数"
        Else
            Label1.Text = m & "不是素数"
        End If
    End Sub
End Class