Cómo generar 11 como ID de estudiante comenzando con 153 en VB

¿Opción?Explícito

¿Privado?Sub?Command1_Click()

Aleatorio

¿Atenuado?a(8)

Dim?n

For?n?=?1?To?8

a(n)?=?Int(Rnd?*?10)

Texto1.Texto?=?"153-"?amp;?a(1)?amp;?a(2)?amp;?a(3)?amp;?a( 4)?amp;?a(5)?amp;?a(6)?amp;?a(7)?amp;?a(8)

End?Sub