thank you so much for the code

it works good when I run it on VB, but when I try to make an exe file it doesn't work, I get this messege

Compile Error :

Sub or Function not defined

Can you help me please !!