mmm estuve probando el codigo... y esta mal...
fijate prueba asi:
Private Sub Command1_Click()
Text1.Text = Rnd * 2 * 100
End Sub
pone numero mas grandes q 100
estuve probando y si pones asi:
Private Sub Command1_Click()
Text1.Text = Rnd * 2
End Sub
pone numeros menos q 2... en tu caso sera 10000000
pero no se como poner mayor q 2