Hi Terry,
something like this will do it :-
dim command as string
dim byte as string
command="B000013E------"
for a=1 to len(command)
byte=mid(command,a,1)
putportbyte(Ox378,asc(byte)) ' Ox378 is the address of your serial port
for b=1 to 1000
' this is a delay loop, adjust to get your 9 ms delay
next
next
end
Graham.