Is there a way to DDEPoke a value greater then 9 into a PLC?

[NashG]

I need a way to enter recipes into a Rockwell PLC from a spreadsheet. The DDERequest inputs the current values flawlessly, but when I try to output the new values using DDEPoke all that is transmitted is the first character. If I enter a value of 256 DDEPoke only transmits the 2 and truncates the remainder of the number. I can also use RSLinx to copy a DDE link to the clipboard and then use Paste Special to paste the DDE link into a cell. But I need a script that will write a minimum of 5 digits back to the PLC.

[Atom_Automation]

Esta es la conexion a RSLinx,

tiene un problema solo escribe un caracter, por si alguien sabe por que lo hace de esa manera
la lectura o Requuest, si lo hace de varios caracteres

Sub Main

Dim nDDeChannel as integer
Dim s as String
     rem este es un comentario
     rem este es TOPIC = "Template_Osmosis"
nDDeChannel = DDEInitiate("RSLINX","Template_Osmosis")
if nDDeChannel = 0 then
	Print " Fallo de Conexion "
else
	rem Esta es la Varible a la cual se escribe =  "Monitor1"
	rem Esta es la Varible a la cual se escribe =  "Status"
	rem Estas dos variables hay que generarlas en el controlador
	DDEPoke(nDDeChannel,Item := "Monitor1",data:="2450")
	s = DDERequest(nDDeChannel,"Status")
	DDETerminateAll      
end if

End Sub