Red de conocimiento informático - Conocimiento informático - Ayuda con la programación VBA usando los siguientes datos

Ayuda con la programación VBA usando los siguientes datos

Sub?Random()

a?=?Rnd(1)

Si a?>=?0?entonces b?=?1

Si a ?>=?0.05?Entonces b?=?2

Si a?>=?0.2?Entonces b?=?3

Si a?>=?0.5?Entonces b ?=?4

Cuadro de mensaje?(b)

¿Fin?