j'espere que l'exemple ci dessous repondra à ta demande
Private Sub CommandButton1_Click()
Dim Fichier As String
Dim val As Long
Dim Cible As String
Fichier = "C:\monfichier.txt"
Open Fichier For Input As #1 'recup données fichier texte
val = FileLen(Fichier)
Cible = Input(val, 1)
Close #1
TextBox1 = Cible
End Sub