shell med "parameter" fra en label eller text-boks

Hej eksperter.
Jeg har en txt med en sti/prg.-angivelse, f.eks. c:\windows\cal.exe
(stien er ikke altid den samme)
Nu vil jeg gerne have mit prg. læser filen og sætter den ind i en label (det gør den fint). Og så efterfølgende kører en shell med indholdet af label'en. (det er her problemet er)
Har vedlagt min lille kode. Håber en venlig sjæl kan hjælpe. vh thjoe

Private Sub Form_Load()

Dim TextLine$, Filename$ 
Dim FileHandle As Integer 
Filename$ = "C:\Programmer\test2.txt" 
If Dir(Filename$) = "" Then Exit Sub 
FileHandle = FreeFile 
Open Filename$ For Input As #FileHandle
Do While Not EOF(FileHandle)
Line Input #FileHandle, TextLine$ 
Label1 = TextLine$ 
Loop 
Close #FileHandle
Shell "Label1"
End Sub