Ola amigos 
 
	Tenho um codigo abaixo que não consigo ajustar um erro que esta ocorrendo. Peço o seu auxilio de um desenvolvedor já que eu sou usuario avancado mas sem programacao. Apenas trabalho com desenvolvimento interno de minhas rotinas
 
	" Erro em tempo de execucao '5'Argumento ou chamada de procedimento invalida "
 
	Segue codigo
 
	Private Sub Comando0_Click()Dim myfile As String, newFile As StringDim myfolder As Stringmyfolder = "C:\Users\Samsung\Downloads\"myfile = Dir(myfolder & "*.jpg")While myfile <> ""newName = Left(myfile, 7) & ".jpg"'se na pasta já houver um arquivo com o nome do novo arquivo entãoif dir(myFolder & newName) <> "" then   'apague esse arquivo que já existe   call kill(myFolder & newName)end if'renomeando o arquivo com a certeza de que não haverá um outro arquivo com o novo nomeName myfolder & myfile As myfolder & newName'code here to copy the fiel to another location'filecopy myFolder & newName, destFolder & newNamemyfile = DirWendEnd Sub