Load exe fil

Hvad er det jeg gør galt her:
Når jeg køre det som en service på min server - sker der bare INTET... Hvordan tester i om jeres services virker ?
Den skal blot kigge i en mappe og køre en exe fil hvis der ligger filer i mappen... Hver 60 sek køre den.

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'MsgBox("Opdate: " & Now())
        Dim DirFile As Object
        DirFile = FileSystem.Dir("c:\Drop Folder\")

        If DirFile <> "" Then
            Shell("C:\Program Files (x86)\SourceTec\fvec\fvec.exe" & " " & "C:\Drop Folder\" & DirFile & " " & "C:\video\files\test.flv")
        End If
        FileOpen("C:\
    End Sub