Const ForReading = 1
Const ForWriting = 2


Set objDictionary = CreateObject("Scripting.Dictionary")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set ObjOutFile = objfso.CreateTextFile("temp2.m3u", True)
ObjOutFile.close
Set objFile = objFSO.OpenTextFile("temp1.m3u", ForReading)

i = -1

Do Until objFile.AtEndOfStream
    strLine = objFile.Readline
    objDictionary.Add strLine, strLine   
    i = i + 1
Loop

objFile.Close

Dim arrWords()
Redim arrWords(i)
intWordsLeft = i

z = 0

Do While intWordsLeft >= 0
    Randomize
    rndWord = Int((intWordsLeft - 0 + 1) * Rnd + 0)
    intWordsLeft = intWordsLeft - 1
    colItems = objDictionary.Items
    strText = colItems(rndWord)
    arrWords(z) = strText
    z = z + 1
    objDictionary.Remove(strText)
Loop

Set objFile = objFSO.OpenTextFile("temp2.m3u", ForWriting)

For Each strItem in arrWords
    objFile.WriteLine strItem
Next

objFile.Close