EXCLUIR ARQUIVOS

Dim arqAtual As String, dirArq As String
dirArq = [Ô]C:\Meus documentos\[Ô]
arqAtual = Dir(dirArq & [Ô]*.TXT[Ô])
Do
    arqAtual = Dir
    If Trim(arqAtual) <> [Ô][Ô] Then 
		If MsgBox([Ô]Confirma a exclusão do arquivo [Ô] & arqAtual & [Ô]?[Ô], vbQuestion + vbYesNo) = vbYes Then
			Kill dirArq & arqAtual
		End If
	End If
Loop Until arqAtual = [Ô][Ô]