Visual Basic - Como poner en un text-box un numero aleatorio del

Cual seria de forma escrita la forma de programarlo

Cada vez que le des clic al boton te va generar un numero aleaorio del 1 al 6
Private Sub cmdGenerar_Click()
Dim MyValue
MyValue = Int((6 * Rnd) + 1)
Text1 = MyValue
End Sub