sub nombrefuncion(parametros)
tu codigo
end sub
y para llamar esta funcion utilizas, nombrefuncion(parametros)
espero te sirva
<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>