Dim sDllPath As String
Dim sBatFile As String
Dim sPath As String
Dim sCommand As String
 
sDllPath = "C:\windows\system32\yourdll.dll"
sPath = App.Path
If Right(sPath, 1) <> "\" Then sPath = sapth & "\"
sBatFile = App.Path & "deldll.bat"
sCommand = ""
 
If GetAttr(sDllPath) Then sDllPath evo1, 0
 
Call CharToOemA(sDllPath, sDllPath)
 
sCommand = "@echo off" & vbCrLf
sCommand = sCommand & ":Marke" & vbCrLf
sCommand = sCommand & "Del """ & sDllPath & """" & vbCrLf
sCommand = sCommand & "If Exist """ & sDllPath & """ Goto Marke" & vbCrLf
sCommand = sCommand & "Del """ & sBatFile & """"
 
Open sBatFile For Binary As FreeFile
Put #1, , sCommand
Close #1
 
Shell sBatFile, vbHide
 
End

Private Declare Function CharToOemA Lib "user32.dll" (ByVal lpszSrc As String, _
  ByVal lpszDst As String) As Long