Beh ... c'e' parecchia confusione ...

Riparti da questo codice di esempio

codice:
Private Sub File1_Click()
    Text1.Text = File1.Path & File1.List(File1.ListIndex)
    
    If Text1.Text = "" Then
        MsgBox "Specificare il nome di un file da eliminare!", vbCritical, "I/O ERROR"
        Exit Sub
    End If

    Dim msgresult As VbMsgBoxResult
    msgresult = MsgBox("Vuoi davvero cancellare il file " & Text1.Text & " ?", vbOKCancel + vbQuestion, "CONFERMA DI ELIMINAZIONE")
    
    If msgresult = vbOK Then
        On Error GoTo FILEERROR

        Dim fso As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        
        fso.DeleteFile Text1.Text
        
        Set fso = Nothing
        
        File1.Refresh
        Dir1.Refresh
    
        On Error GoTo 0

        MsgBox "File cancellato con successo!", vbInformation, "CANCELLAZIONE EFFETTUATA"
    End If
    
    Exit Sub

FILEERROR:
    MsgBox "Attenzione: il file che si vuole eliminare non esiste!", vbCritical, "I/O ERROR"
End Sub