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

Design a class tictactoe that: holds the following information about the game: two-dimensional array (3 by 3), and winner. add additional variables as needed. includes the functions to perform the various operations on objects. for example, function to print the board, getting the move, checking if move is valid, determining if there is a winner after each move. add additional operations as needed. includes constructor(s). write the functions of the class, and write a program that uses the class. the program should declare an object of type tictactoe. the program will create the board and store it in the array. the program will allow two players to play the tic-tac-toe game. after every valid move update the array, check if there is a winner. if there is no winner and no tie, then print the board again to continue.