Эта простая программа не содержит никаких кнопок. Только текстовое поле для ввода числа, меньшего одного миллиарда. (А больше вы не введете, текстовое поле специально ограничено - 9 знаков максимум). Если число простое, то оно будет иметь красный цвет. А нет - чёрный.
Код:
Option Explicit
Dim P As Long, d As Long
Dim bul As Boolean
Dim Q As Double
Private Sub txtT_Change()
P = Val(txtT.Text)
If P = 1 Then bul = False: GoTo 100
If P Mod 2 = 0 And P <> 2 Then bul = False: GoTo 100
Q = Sqr(P)
For d = 3 To Q Step 2
If P Mod d = 0 Then bul = False: GoTo 100
Next d
bul = True: GoTo 100
100
If bul Then txtT.ForeColor = vbRed Else txtT.ForeColor = vbBlack
End Sub