setpause = 1 ' set to 0 or 1. 1 fills in pause-events. pause = 15 ' pause in milliseconds ext = "00" ' last hex byte attached. Example: ext = "05" gives: 900105 start = 0 ' on which button-number to start stopp = 63 ' on which button-number to stop '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Please change values only above this line! Use Ctrl+C on the result. ' ' MidiKey2Key: http://75r.de/midikey2key ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' out = "" For i = start to stopp out = out & " " & "90" if i<16 then out = out & "0" & Hex(i) & ext else out = out & Hex(i) & ext if setpause then out = out & " P" & pause Next 'remove trailing space: out = right(out, len(out)-1) msgbox out, 0, "Hit Ctrl+C to copy, paste it and remove 6 lines of garbage!"