How do you arrive at the values you want to send ?

Are there a series of bytes that you are converting into the binary array ?

If so declare an array of a suitable number of bytes and set each byte

eg

bytearray VAR BYTE[25]

bytearray[0] = {whatever the value is}
bytearray[1] = {whatever the next value is}
etc


Then transmit those bytes

Code:
For MyByte = 0 to 24
  ThisByte=bytearray[MyByte]
  For MyBit = 0 to 7 ' or 7 to 0 depending on the order !!!!
     If ThisByte.0[MyBit] = 1 then
         OutputPin=1
     Else
         OutputPin=0
     End if
     Pause 1
   Next
Next
Without knowing the protocol it is difficult to decide how to set the values.

Havent tried the code above so offer no guarantee that it would work !!!

Your question was how to transmit a binary string, not how to create it in the first place

Dont suppose you have any info on the protocol SONY use for stalk controllers do you ?

Just wish I could stop my Sony head unit from resetting the iPod EVERY time you turn it on. SWMBOs JVC doesnt.