'On suppose que le fichier est "Fichier.txt" et la TextBox "Text1" Open "Fichier.txt" For Output As #1 Print #1, Text1.Font.Name Close #1