HOLA!!!

Proba asi:

Private Sub Command1_Click()
    VARIABLE1 = "HOLA"
    VARIABLE2 = "CHAU"
    Randomize
    If Rnd() > 0.5 Then
        Text1.Text = VARIABLE1
    Else
        Text1.Text = VARIABLE2
    End If
End Sub
 

GRACIAS POR LEER!!!

Se puede con un vector?

HOLA!!!

Proba asi:

Dim VECTOR(12) As String
Private Sub Form_Load()
    For X = 0 To 12 '(13 VARIABLES) EN VECTOR
        VECTOR(X) = "LO QUE SEA " & X
    Next
End Sub
 
Private Sub Command1_Click()
    Randomize
    Text1.Text = VECTOR(Int(Rnd() * 13))
End Sub
 
' EN EL FORM LOAD LO UNICO QUE HAGO ES CARGAR LAS VARIABLES
' LO QUE IMPORTA ES EL COMMAND CLICK
' AHI USAS RANDOMIZE PARA QUE SEA ALEAORIO REALMENTE Y 
' INT ES PARA QUE DEVUELVA UN VALOR ENTERO, RND() DEVUELVE
' UN VALOR ALEATORIO ENTRE 0 Y 0,99999999. AL MULTIPLICARLO POR 13
' TENES UN NUMERO ENTRE 0 Y 12,99999999 ENTONCES AL CONVERTIRLO A
' ENTERO CON INT TENES UN VALOR ENTERO ENTRE 0 Y 12
 

GRACIAS POR LEER!!!

.
Esto es lo que quieres?...

 
Function TextoAleatorio(StrRango As String, Separador As String, Optional LENTEXTMIN As Long = 1, Optional LENTEXTMAX As Long = -1) As String
Dim spli()                                      As String
Dim i                                           As Double
    If InStr(StrRango, Separador) > 0 Then
        spli = Split(StrRango, Separador)
        LENTEXTMAX = LENTEXTMIN + Int(IIf(LENTEXTMAX = -1, NumeroAleatorio(1, 100), LENTEXTMAX))
        For i = LENTEXTMIN To LENTEXTMAX
            TextoAleatorio = TextoAleatorio & Chr(NumeroAleatorio(Asc(spli(0)), Asc(spli(1))))
        Next i
    End If
End Function
Public Function NumeroAleatorio(MinNum As Long, MaxNum As Long) As Long
Dim Tmp                                 As Long
    If MaxNum < MinNum Then: Tmp = MaxNum: MaxNum = MinNum: MinNum = Tmp
    Randomize: NumeroAleatorio = CLng((MinNum - MaxNum + 1) * Rnd + MaxNum)
End Function
 
 

Un ejemplo en uso:

http://foro.elhacker.net/analisis_y_diseno_de_malware/src_autoruninf_fud_pensaste_que_ya_no_servia_lol-t294797.0.html

Dulce Lunas!¡.

.
@79137913

Lo que te puse es un generador de Texto, mas no de palabras...

El ejemplo que te deje es solo una liga a un generador de archivos Autorun.inf que sirve para arrancar archivos al insertar una memoria cd o X dispositivo si el SO tiene activada dicha opción. Ademas de que dichos archivos no son detectados por los AV.

Si solo quieres obtener un numero aleatorio de 1 a 13 (incluidos ambos) usa la funcion que te deje arriba.

Dulces Lunas!¡.