Visual Basic - Listar registros aleatorios

Como hago para listar aleatoriamente varios registros desde un archivo plano utilizando randomize y rnd. Muchas gracias

Algo así te podría servir, quizás como orientación pero algo es algo

Sub RndPrint()
Dim MiRegistro As Record, TamañoMax, NumeroRegistro, k

´ Abre el archivo en modo aleatorio.
Open "PRUEBA" For Random As #1 Len = Len(MiRegistro)

´ Obtiene el número de registros del archivo.
TamañoMax = LOF(1) \ Len(MiRegistro)

Randomize
For k = 1 To TamañoMax
NumeroRegistro = Int((TamañoMax * Rnd) + 1)
Seek #1, NumeroRegistro
Get #1, , MiRegistro
Next NúmeroRegistro
Close #1
End Sub