Lotusscript array randomize

If it is the following variables, how to use MyVar to randomly select three out of four, the number may increase, and the number to be taken is also according to the needs

My Code

    Dim MyVar() As Variant
    Redim MyVar(2)
    MyVar(0) = Name
    MyVar(1) = NameType
    AllQuestion = MyVar

Name

"Car"
"Dog"
"Man"
"Cow"

NameType

"One"
"Four"
"TWO"
"Five"