Sub Clear_MicrosoftXLSTART()
    Dim fso As Object
    Dim oFolder As Object
    Dim oSubfolder As Object
    Dim oFile As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set oFolder = fso.GetFolder("C:\Users\" & Environ("USERNAME") & "\AppData\Roaming\Microsoft\Excel") 'obviously replace
        On Error Resume Next
        Kill oFolder.Path & "\*.*" ', True ' Delete file from Excel(Folder)
        For Each oSubfolder In oFolder.SubFolders
            If oSubfolder.Name = "XLSTART" Then GoTo NextFolder
            On Error Resume Next
            Kill oSubfolder.Path & "\*.*"
            RmDir oSubfolder.Path
            On Error GoTo 0
NextFolder:
        Next oSubfolder
    Set oFile = Nothing
    Set oSubfolder = Nothing
    Set oFolder = Nothing
    Set fso = Nothing
End Sub