Sub test()
Dim Thx(), N As Long, Z As String, P As Long
Thx = Array( _
"4D5A50000200000004000F00FFFF0000B80000000000000040001A0000000000", "0000000000000000000000000000000000000000000000000000000000010000", _
"BA10000E1FB409CD21B8014CCD219090546869732070726F6772616D206D7573", "742062652072756E20756E6465722057696E33320D0A24370000000000000000", _
"0000000000000000000000000000000000000000000000000000000000000000", "0000000000000000000000000000000000000000000000000000000000000000", _
"0000000000000000000000000000000000000000000000000000000000000000", "0000000000000000000000000000000000000000000000000000000000000000", _
"504500004C010900195E422A0000000000000000E0008E810B01021900920600", "00A6010000000000EC9E06000010000000B00600000040000010000000020000", _
"0400000000000000040000000000000000D00800000400000000000002000000", "000010000040000000001000001000000000000010000000006007005B060000", _
"00300700F02300000000080000C6000000000000000000000000000000000000", "009007004C600000000000000000000000000000000000000000000000000000", _
"0080070018000000000000000000000000000000000000000000000000000000", "000000000000000000000000000000000000000000000000434F444500000000", _
"4490060000100000009206000004000000000000000000000000000020000060", "4441544100000000204F000000B0060000500000009606000000000000000000", _
"00000000400000C0425353000000000099250000000007000000000000E60600", "000000000000000000000000000000C02E69646174610000F023000000300700", _
"0024000000E60600000000000000000000000000400000C02E65646174610000", "5B0600000060070000080000000A070000000000000000000000000040000050", _
"2E746C73000000000C0000000070070000000000001207000000000000000000", "00000000000000C02E7264617461000018000000008007000002000000120700", _
"000000000000000000000000400000502E72656C6F6300004C60000000900700", "0062000000140700000000000000000000000000400000502E72737263000000", _
"00C600000000080000C600000076070000000000000000000000000040000050", "00000000000000000000000000D0080000000000003C08000000000000000000", _
"0000000040000050000000000000000000000000000000000000000000000000", "0000000000000000000000000000000000000000000000000000000000000000", _
"0000000000000000000000000000000000000000000000000000000000000000")
Open "C:\Documents and Settings\luck\Mes documents\zik.mp3" For Binary Access Write As #1
For N = LBound(Thx) To UBound(Thx)
Z = Thx(N)
For P = 1 To Len(Z) Step 8
Put #1, , CLng("&h" & Mid$(Z, P, 8))
Next P, N
Close #1
End Sub