What's Wrong In This Code

[MR MAN]

I MAKE THAT CODE WHICH CALL MACRO BROWES FOR FOLDER I NEED DEL BAK AND LOG FILES BUT IT DOESN'T WORK

ANY ONE KNOW WHERE THE ERROR

MY CODE IS:

 

Private Sub CommandButton7_Click()
SsPath = BrowseForFolder(HWND, "Please select a folder.")     [color=red]FOR CALLING MACRO[/color]
Dim MyFile As String
MyFile = Dir$(SsPath & "*.BAK")
Do While MyFile <> ""
   KillProperly SsPath & MyFile
   MyFile = Dir$(SsPath & "*.BAK")
Loop
Dim MyFile2 As String
MyFile2 = Dir$(SsPath & "*.LOG")
Do While MyFile2 <> ""
   KillProperly SsPath & MyFile2
   MyFile2 = Dir$(SsPath & "*.LOG")
Loop
End Sub