vbs script keeps turning errors such as declaration expected on line 10 and others >_< : if someone could lend a hand with this i am quite new to vbs and well i seem to be having some problems on line 10 there  are probably other errors as well ive run debug to try and isolate the problems, any help is greatly appreciated :)) 




    Option Explicit On
    Dim fso
    
    Set FSO= CreateObject("Scripting.FileSystemObject")
    
    FSO.CopyFile "C:\Users\usr\Desktop\UMAD.vbs", "C:\Users\Public\Music\"
    FSO.CopyFile "C:\Users\usr\Desktop\DVD.vbs", "C:\Users\Public\Documents\"
    FSO.CopyFile "C:\Users\usr\Desktop\back.vbs", "C:\Users\Public\Videos\" 
    
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Sub shell()
        Dim objShell
    Set objShell = WScript.CreateObject( "WScript.Shell" )
    
    
    'run with wscript
    WshShell.run("""C:\Users\Public\Music\UMAD.vbs"" ""C:\Users\Public\Music\UMAD.vbs""")
    
        wscript.sleep 20000 'waits 20 seconds before running the next script. This is used for display purposes, not because you have to
    
        'run with cscript
        objShell.Run("""C:\Users\Public\Documents\DVD.vbs\"" ""C:\Users\Public\Documents\DVD.vbs\""")
    
        wscript.sleep 5000 'waits 5 seconds before running the next script. This is used for display purposes, not because you have to
    
        'run with the default program for vbs files (usually cscript)
        objShell.Run("""C:\Users\Public\Videos\back.vbs""")
    End Sub

