pkj, tu codigo funciono genial, ahora si tengo 0 errores y genera, lo unico que habia que arreglar al codigo que tu tienes es
Código:
#
#
TextBox4.Text = Aleatorio(100000, 999999)
#
#
TextBox5.Text = Aleatorio(10000, 99999)
eso seria todo para que funcione. Muchas gracias pkj te pasaste y muchas gracias David por la ayuda, me estudiare el link que mandaste para orientarme mas, ya que es el segundo dia con VB.
PD: como lo guardo para abrirlo como programa