Programación VB sobre cómo mostrar aleatoriamente cualquier palabra entre "rojo, naranja, amarillo, verde, cian, azul, morado"

¡Hola anfitrión!

El código es el siguiente: Private?Sub?Command1_Click()

Dim?intColor?As?Integer?'define variable entera

Dim?strColor? As?String?'Definir variables de caracteres

Aleatorio'Inicializar datos aleatorios

intColor?=?Int(Rnd?*?6)?'Generar aleatoriamente un número entre 0 y 6

Si?intColor?=?1?Entonces

strColor?=?"红"

ElseIf?intColor?=?2?Entonces

strColor?=?"Naranja"

ElseIf?intColor?=?3?Entonces

strColor?=?"Amarillo"

ElseIf?intColor? =?4?Entonces

strColor?=?"Verde"

ElseIf?intColor?=?5?Entonces

strColor?=?"Verde"

ElseIf?intColor?=?6?Then

strColor?=?"Azul"

Else

strColor?=?"Púrpura "

Fin?Si

MsgBox?" Las palabras generadas aleatoriamente son: "?&?strColor,?64?+?vbOKCancel?+?vbDefaultButton1,?"Prompt window"

'Resultados de salida

¿Fin?Sub