Scanner un texte d'un fichier

 Voilà je voudrais scanner un fichier texte et dès qu'il rencontre un symbole particulier par exemple * qu'il y ai saut de lignes voilà ce que j'ai fait mais je ne sais comment lui dire que si il y a ce character alors il faut un saut de ligne (enter)?

---

 Dim text_fichier As String
 
 Open App.Path & "/infos_connexion.txt" For Input As #1
 
 While Not eof(1)
    Input #1, text_fichier
    text_infos = text_infos + text_fichier + Chr$(32)
   
 Wend

Close #1

---

Merci d'avance

Merci beaucoup de cette réponse claire net et précise :)