must i but End if in this visual basic. 6 program

Sub main ( )
Dim i as integer, p as integer
P = 1
For i = 1 to 100
if ( 1 mod 4 = 0 ) then
p = p*i
Next i
MsgBox " الناتج هو " & p
End sub ​