Visual Basic - ayuda con código que se borre automáticamente

Set variable = CreateObject("Scripting.FileSystemObject")

fso.CopyFile "C:\Users\Dixon\Desktop\tema.txt" , "C:\Users\Dixon\VICTOR2"

variable.DeleteFile "C:\Users\damian\Desktop\tema.tx"

variable.DeleteFile "C:\Users\damian\Desktop\tema.tx"

Set variable = CreateObject("Scripting.FileSystemObject") ' creaste un FSO

'aqui llamas a fso y no a variable, pero si te copia chevere no se si existe fso arriba al no ver todo el codigo

'luego te copia un .txt  en una capreta,, peroooooooo

fso.CopyFile "C:\Users\Dixon\Desktop\tema.txt" , "C:\Users\Dixon\VICTOR2"

'quieres borrar un archivo .tx que no te va funcionar por que este archivo "no existe"

variable.DeleteFile "C:\Users\damian\Desktop\tema.tx"

Set FSO= CreateObject("Scripting.FileSystemObject") ' create un FSO  con nombre FSO

'aqui llamas a fso y no a variable, pero si te copia chevere

'luego te copia un .txt  en una capreta, deberia copiarla.....

fso.CopyFile "C:\Users\Dixon\Desktop\tema.txt" , "C:\Users\Dixon\VICTOR2\"

'quieres borrar un archivo .tx que no te va funcionar  cambiemos el objeto  fso y luego el nombre corregido

fso.DeleteFile "C:\Users\damian\Desktop\tema.txt"

Option Explicit

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists("C:\Users\damian\Desktop\tema.txt") then

fso.CopyFile "C:\Users\damian\Desktop\tema.txt" , "C:\Users\damian\Desktop\VICTOR2\"

fso.DeleteFile "C:\Users\damian\Desktop\tema.txt"

Else

wscript.echo "doesn't exist"

End If