Ya está ivan gracias, como has dicho había que poner alguna condición para cuando el modulo de n era 0 porque yo lo del continue no lo he visto todavía.

Hola buenas estoy empezando a programar y llevo un día entero resolviendo un problema que seguro que se puede hacer en 5 minutos, el problema es este: https://gyazo.com/6542c560c942442f08009202a0d3cfb6
Mi programa es este pero falla cuando hay un cero en el numero.

Hola a todos es mi primer post en este foro que ya me ha resuelto muchas dudas javascript:void(0); os quería preguntar porque si quiero obtener números aleatorios programando en Visual Basic siempre voy a tener 10 dígitos en vez de 16 como yo quiero. Es decir yo programo un número aleatorio "x" de 10 dígitos y  hago una operación aritmética con otro(como por ejemplo una suma) para conseguir las cifras que yo quiero pero sin embargo no me aparece un número y no me deja, me aparece mi Label1, aquí os dejo el código del Form.
(Tengo que destacar también que es el primer programa de objetos con el que trabajo ya que soy muy nuevo en esto de la programación)

 
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
 
 
TextBox2.Text = "11111110000" 
 
Dim r1, r2 As Integer 
 
r1 = Val(CInt(Math.Floor((999999999 - 999999998 + 1) * Rnd())) + 999999998) + Val(TextBox2.Text) 
 
Label1.Text = r1 
 
End Sub