Определить является ли число простым - VB

   Dim n, i
   n = InputBox("Vvedite N")
   If n=2 Then MsgBox "Простое", , "2 - простое число": Exit Sub 
   If n Mod 2 = 0 Then MsgBox "Не простое", , "Чётное": Exit Sub
   
   For i = 3 To n Step 2
      If n Mod i = 0 Then MsgBox "Не простое", , i: Exit Sub
      m = n \ i 'верхняя граница приближается
      If i > m Then Exit For
   Next i
   MsgBox "Простое"