Firstly, im new to vbscript. so i just regard your question as homework, lol, below just for your reference
---------------------------------------------------------------------------
Dim f,x,n,a,b,newFolder
' your songs folder path
x="C:\songs\3 Doors Down\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(x)
For each file in f.files
n=fso.getfilename(file)
a=split(n,".",2,1)
b=split(a(0)," - ",-1,0)
Set newFolder=fso.createfolder(x&b(2))
fso.movefile file,newFolder&"\"
Next
---------------------------------------------------------------------------
-hayden