lol.  Sorry:

  Private Sub cleanTempDir(Optional ByVal Tpath As String = "\Temp",
Optional ByVal Tfilter As String = "*.TMP")
       Try
           If Right(Tpath, 1) <> "\" Then Tpath = Tpath & "\"
           Dim Tfiles() As String = Directory.GetFiles(Tpath, Tfilter)
'<-here's where it bombs
           Dim Tfile As String
           For Each Tfile In Tfiles
               Try
                   File.Delete(Tfile)
               Catch ex As Exception
               End Try
           Next Tfile
       Catch ioex As IOException
       Catch ex As Exception

       End Try

   End Sub