[vb6] Ancora Textbox, .txt & .bin!!

[x69asterix]

Ciao a tutti,
riapro un post mai chiuso, allora in questo modo se apro un file.txt, mi ritrovo nel Text2.Text il file letto e nella Label9 la len del file.txt, bene, ma se apro un file.bin, nel Text2.Text, non mi ritrovo niente, o meglio la scrollBar mi dice che ha letto però nel Text2.Text è vuota, anke se la Label9 mi da la len del file.bin corretta, come posso vedere il file letto nel Text2.Text??

Dim SourceFile
SourceFile = File1.Path & "\" & File1.FileName  ' Definisce il nome   del file di origine.
      Label8.Caption = FileLen(SourceFile)         
Open SourceFile For Binary As #2
      file = Space(LOF(2))
Get #2, , file
       Text2.SelText = Text2.SelText & file 
       DoEvents
       Label9 = Len(Text2.Text)
Close #2

Ciao