Lire première ligne fichier .txt

Salut à tous,

Je met au point un petit fichier pour afficher l'utilisateur ayant ouvert un fichier sans "lecture seule". Je me suis donc inspiré de ce post https://forum.excel-pratique.com/excel/test-a-l-ouverture-d-un-fichier-excel-se-trouvant-sur-un-res-t76199.html et de recherches google.

J'ai réussi à écrire dans le fichier au lancement d'une appli, mais je bloque sur la lecture désormais. Et oui, si c'est bien écrit dans le fichier .txt beh encore faut-il le lire ^^.

Le problème avec le code qui suit, c'est que cela ne récupère rien malgré que j'ai écris dans le fichier au préalable. En fait, sa me supprime ma ligne et sa me renvoie une variable "ligne" vide, dans la msgbox test.

Aussi, la rédaction de ce type de code est particulière et j'aimerai votre aide pour modifier ce tout petit petit code de rien du tout afin de pouvoir lire la première ligne de mon fichier .txt, sans l'écrasé au passage.

Je vous remercie par avance !

Code :

Sub Lire()
Dim ligne As String
'permet de retrouver le 1er numéro libre de désignation d'un fichier
'num = FreeFile
'ouvre le fichier en lecture
Open ThisWorkbook.Path & "\histo\" & appli & ".txt" For Output As #1
Do While Not EOF(1)
Line Input #1, ligne 
Loop
MsgBox ligne
Close #num 'fermeture
End Sub

EDIT :

Pardon du dérangement ! Correction :

Sub Lire()
Dim ligne As String
Open ThisWorkbook.Path & "\histo\" & "archi" & ".txt" For Input As #1
Line Input #1, ligne
Close #1 'fermeture
MsgBox ligne
End Sub