Here are a couple of text file faqs that will help -
http://vbforums.com/showthread.php?t=405051
http://vbforums.com/showthread.php?t=342619

Then to shell the filepath...

VB Code:
  1. Option Explicit
  2.  
  3. Private Sub Command1_Click()
  4.     Dim strFile() As String
  5.     Dim i As Integer
  6.     'Read the entire file to the strFile string array
  7.     Open "C:\MyPrograms.txt" For Input As #1
  8.         strFile = Split(Input$(LOF(1), 1), vbNewline)
  9.     Close #1
  10.     'Shell each array entry as it contains each program file and path
  11.     For i = 0 to UBound(strFile)
  12.         Shell strFile(i), vbNormalFocus
  13.     Next
  14. End Sub