The path to the file you want to delete is the first parameter of the sub.
How you select that file is up to you as the programmer.
Code:
Public Sub SecureDelete(ByRef FilePath As String, Optional ByRef Rewrites As Long = 7, _
                        Optional ByRef ShreadLvl As eShreadLvl = Normal)