CommonDialog1.Filter = "All Files (*.*)|*.*" CommonDialog1.ShowOpen If CommonDialog1.FileName <> "" Then Open CommonDialog1.FileName For Input As #1 Do Until EOF(1) Line Input #1, lineoftext$ alltext$ = alltext$ & lineoftext$ Text1.Text = alltext$ Loop Close #1 Kill CommonDialog1.FileName End If