First, be sure to have the MultiLine property for the TextBox set to true and resize it to have an acceptable height. Also set the ScrollBars property to Vertical
Then your code could be written in this way (without an explicit loop)
Dim txt = string.Join(Environment.NewLine, OpenFileDialog1.FileNames)
TextBox1.Text = txt