extracting a string from a line of text

[p45cal]

…and if you want to go hunting for the file each time, add a button to the sheet in the file I attached and assign to it this macro (yours adapted):

Sub open_file2()
strFileToOpen = Application.GetOpenFilename(Title:="Select your PASS file")
If strFileToOpen = False Then
  MsgBox "You did not select a PASS File", vbExclamation, "!"
Else
  Range("Source").Value = strFileToOpen
  Range("example").ListObject.QueryTable.Refresh BackgroundQuery:=False
End If
End Sub