Convert this App to VBA??

I'm trying to make a chat program for school. I'm trying to install it without using an Installer, which means that I have to install the files manually.

Msvbvm60
Ole32aut
Winsock
Richtextbox

Now I have to do this from disks, which is impossible on some computers as they don't have working floppy drives. So my solution??

Put it into VBA. I've posted it below, could u skim through it and see if theres going to be any problems in converting it from VB to VBA?

Thanks in Advance