Puedes escribir estos 5 scripts en 5 procedimientos de función y luego usar otra función, rnd para llamar aleatoriamente a Randomize
a=int(rnd*5) 1
MsgBox(a)
¿Si?a?=?1?Entonces?
¿Llamar?fun1
¿ElseIf?a?=?1?¿Entonces?
¿Llamar?fun1
Fin?Si
Función?fun1()
'Código de función 1
¿Fin?Función
Función?fun2()
'Código de función 2
Fin?Función