Cita: pues cuando aprieto el 1 el VB lo entiende por el 49
lo que pasa es que en tu form estás utilizando el evento
KeyPress que lo que está haciendo es recibir el valor de la tecla presionada, y por eso cuando tecleas el 1 te sale el 49... intenta utilizar en tu Form ... un cuadro de texto..(que es donde vas a colocar hasta que numero quieres que se formen los asteriscos..) y un boton para que se despliegue el resultado.
En tu boton... utiliza el evento
click ...
y ahi pones tu código.
P.D Una pista: No es necesario que utilices un
while .. lo puedes hacer con un
for
Suerte.