Texte aléatoire

Bonjour,
je m'initie à Visual Basic et pour mon premier programme je voudrais chargé au hasard une ligne d'un fichier .txt
Pouvez vous m'expliquer comment faire ?

Bonjour
Un truc du genre :
' Déclaration des variables
Dim Ligne As String, No As Integer, i As Integer, Max As Integer
' Ouverture du fichier en lecture
Open "C:\Chemin\Fichier.txt" For Input As #1
' Calcul du nombre de lignes du fichier
Do While Not EOF(1)
Line Input #1, Ligne
Max = Max + 1
Loop
' Retour au début
Seek 1, 1
' Initialisation de la fonction Rnd (nombre aléatoire)
Randomize
' Numéro de la ligne à afficher
No = 1 + Rnd * Max
' Recherche de la ligne
For i = 1 To No
Line Input #1, Ligne
Next i
' Fermeture du fichier
Close 1
' Affichage de la ligne
MsgBox Ligne

Dans le mm style mais plus court :

Dim TabTxt() As String, X As Integer 'Déclarations Open "c:\fichier.txt" For Input As #1 'Ouverture du fichier TabTxt = Split(Input(LOF(1), 1), vbCrLf) 'Stockage des lignes dans un tableau Close #1 'Fermeture Randomize 'mélange X = Int(Rnd * UBound(TabTxt)) 'Nb aléatoire entre 0 et le nb de ligne MsgBox TabTxt(X) 'Afiichage de la ligne

merci beaucoup c'est impécable

Ben moi ca ne marche absolument pas...
Ya un PB avec Open , Line Input et #1
(Jsui en VB.net)
Merci de m'expliquer
@+
Agent N°22.

Bonjour
Pose la question dans un nouveau message en précisant que tu es en VB.NET