Scrivendo così mi va al termine della riga, poi si blocca ancora!

Dim N As Integer
N = FreeFile
Dim strIn As String
Open CommonDialog1.FileName For Input As #N
Do While EOF(N) = False
Line Input #N, strIn
txt1.Text = strIn
Close #N
Loop

Prima invece arrivava al primo segno di punteggiatura!