Lo primero de todo es que esto es VB.NET y no va aqui.
Lo segundo po las etiquetas Geshi para que tu codigo sea legible o enserio nadie lo va a leer porque duele a la vista
Lo tercero el ejemplo que te voy a dar va a estar en vb6 porque desconozco vb.net
If not IsNumeric(Textbox2.Text) then exit sub
Dim numeroVecesTotal as integer
Dim numeroVeces as integer
Dim a as integer
Dim cnt asinteger
numeroVecesTotal = textbox2.text
Do while not numeroVeces = numeroVecesTotal
a = CInt(Rnd)
numeroVeces = numeroVeces + a
cnt = cnt + 1
Loop
Label6.text = cnt