¿Quién puede darme el código fuente del extractor aleatorio de VB?

El código es el siguiente, ha sido probado (nota: hay un text3.text, simplemente reemplácelo con la ruta del archivo txt, no olvide poner las comillas. Además, el nombre en txt requiere un espacio o retorno de carro entre cada dos)

Bandera booleana Dim

Subcomando privado 1 _ clic ()'-Ir.

Dim Str1 es una cadena, Str0 es una cadena, n es un número entero

Flag = true

ff = archivo libre

- Leer el archivo de nombre.

Abrir Trim$(Text3.Text) como entrada #ff

Hasta EOF(ff)

Entrada #ff, Str0

Str1 = Str1 " " Str0

Anillo

Cerrar#ff

" -

stra = Dividir(Str1, " ")

Str1 = " "

Para i = LBound(stra) a UBound(stra)

if stra(I) lt""Entonces

p>

Str1 = Str1 stra(i) " "

Terminará si...

Entonces

stra = Dividir (Str1, " ")

n = underrun(stra)

-Iniciar muestreo aleatorio

Irregularizar

Hacer hasta Flag = False <. /p>

Texto1. Texto = stra(Int(Rnd * n))

Múltiples actividades

Anillo

Imprimir

EndConnector

Subcomando privado2_click()' - Detener

Flag = False

Texto2.>

Conector final