[Arquan_Grave]

والله ما فاهم السؤال كويس أخي لاكن انا تخيلت سؤالك بطريقة معقده أنت تقصد

     

كود :

 Dim openfiledialog As New OpenFileDialog
       If openfiledialog.ShowDialog = DialogResult.OK Then
           Dim readedFile() As String = File.ReadAllLines(openfiledialog.FileName)
           For Each line As String In readedFile
               ListBox1.Items.Add(line)
           Next
       End If