probleme textbox VB

[skizz]

bonjour,
je suis entrain de faire un programme en VBA;le role de ce programme est de lire un fichier log et d'afficher le contenu dans un textbox d'une fenetre.
le programme tourne mais il n'affiche pas tout le contenu de fichier log .
donc ma question est: est ce qu'il y a une longeur maximun que le textbox supporte?? si oui est ce que je peux faire une rusé
s'il vous plais aider moi
merci d'avance

[skizz]

ceci est mon code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub CommandButton1_Click()
 
 
    Dim sFileName As String
    Dim iFileNum As Integer
    Dim sBuf As String
    Dim temp1 As String
    Dim temp2 As String
    temp1 = " "
 
 
    ' edit this:
    sFileName = "C:\testFile.log"
 
    ' does the file exist?  simpleminded test:
    If Len(Dir$(sFileName)) = 0 Then
        Exit Sub
    End If
 
    iFileNum = FreeFile()
    Open sFileName For Input As iFileNum
 
    Do While Not EOF(iFileNum)
        Line Input #iFileNum, sBuf
         temp2 = temp1
        temp1 = temp2 & sBuf
        ' now you have the next line of the file in sBuf
        ' do something useful:
        Debug.Print sBuf
    Loop
TextBox1.Text = temp1
    ' close the file
    Close iFileNum
 
End Sub