VBA SVerweis auf geschlossene Datei

Sub Test()
Dim sPfad, sDatei, sTab, sRange, sSuchwert, sFormelString As String
sPfad = "'" & ThisWorkbook.Path & "\" 'Pfad
sDatei = "[Test.xlsx]" 'Datei
sTab = "Sheet1'!" 'Tabelle
sRange = Range("A1:B20").Address(ReferenceStyle:=xlR1C1) 'Zellbereich
sSuchwert = "5" 'Suchwert
'String zusammensetzen
sFormelString = sPfad & sDatei & sTab & sRange
vErgebnis = ExecuteExcel4Macro("VLOOKUP(" & sSuchwert & ", " & sFormelString & ",2,FALSE)")
MsgBox (vErgebnis)
End Sub