Как создать модуль в Visual Basic?

Диалог, это хорошо. Без диалога совсем плохо...
Итак, у вас на форме 4 TextBox для ввода оценки и
один для вывода результата.
Двойным кликом по кнопке на форме и VB автоматически
сформирует процедуру события кнопки.
Остаётся только вписать код:
TextBox5.Text =(Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) ) \ 4

По форме непонятно с каким диалектом VB вы работаете (их много и они разные),
но в любом случае заходите на сайт vbbook.ru
На этом сайте много уроков для начинающих.

#include
#include

using namespace sf;

float offsetX=0, offsetY=0;

const int H = 17;
const int W = 150;

String TileMap[H] = {
"000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",
"0 0",
"0 w 0",
"0 w w w 0",
"0 w kk 0",
"0 k k k k 0",
"0 c k kkk kkk w 0",
"0 r k k k 0",
"0 rr k k 0",
"0 rrr kk 0",
"0 c kckck rrrr 0",
"0 t0 rrrrr 0",
"0G 00 t0 rrrrrr G 0",
"0 d g d 00 00 rrrrrrr 0",
"PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP",
"PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP",
"PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP",
};

class PLAYER {

public:

float dx,dy;
FloatRect rect;
bool onGround;
Sprite sprite;
float currentFrame;

PLAYER(Texture &image)
{
sprite.setTexture(image);
rect = FloatRect(100,180,16,16);

dx=dy=0.1;
currentFrame = 0;
}

void update(float time)
{

rect.left += dx * time;
Collision(0);

if (!onGround) dy=dy+0.0005*time;
rect.top += dy*time;
onGround=false;
Collision(1);

currentFrame += time * 0.005;
if (currentFrame > 3) currentFrame -= 3;

if (dx>0) sprite.setTextureRect(IntRect(112+31*int(currentFrame),144,16,16));
if (dx<0) sprite.setTextureRect(IntRect(112+31*int(currentFrame)+16,144,-16,16));

sprite.setPosition(rect.left - offsetX, rect.top - offsetY);

dx=0;
}

void Collision(int num)
{

for (int i = rect.top/16 ; i<(rect.top+rect.height)/16; i++)
for (int j = rect.left/16; j<(rect.left+rect.width)/16; j++)
{
if ((TileMap[i][j]=='P') || (TileMap[i][j]=='k') || (TileMap[i][j]=='0') || (TileM