Transfer of number and losing decimal place

[Autotech]

Hello I am having a problems transfering a number (ex. 12.34) to Reflections. What is happening is that when the last number (4) is a zero an not a whole number the zero is not transfered which creates and error because the number is not complete.

Dim Session As Object
Set Session = GetObject(, "ReflectionIBM.Session")

Session.Connect
With Session
Session.Visible = True 'Connect to Reflection and make visible

  .SetMousePos 3, 22
  .TerminalMouse rcLeftClick, rcMouseRow, rcMouseCol
  .TransmitANSI [B9].Value 'set mouse location and transfer cell B9 value
  
  .SetMousePos 3, 41
        .TerminalMouse rcLeftClick, rcMouseRow, rcMouseCol
        .WaitForEvent rcEnterPos, "30", "0", 3, 41 'move mouse position
        
        .TransmitTerminalKey rcIBMEnterKey 'enter key
        
        .WaitForEvent rcEnterPos, "30", "0", 9, 22
        .WaitForDisplayString ":", "30", 9, 20
        .TransmitANSI "        "
        .TransmitTerminalKey rcIBMLeftKey
        .TransmitTerminalKey rcIBMLeftKey 'set mouse position, set field to blank
        
.SetMousePos 9, 26
        .TerminalMouse rcLeftClick, rcMouseRow, rcMouseCol
        .TransmitANSI [B4].Value 'set mouse positon and transfer B4 value
   
        .TransmitTerminalKey rcIBMF16Key

I need two decimal places even if they are zeros.
Any ideas?

 

[Andrew Poulsom]

Maybe try:

.TransmitANSI [B9].Text 'set mouse location and transfer cell B9 value

 

[Autotech]

Andrew Poulsom

I tried this code and the zero did appear, but Reflection seen this as a non number and errored.

.TransmitANSI [B9].Text 'set mouse location and transfer cell B9 value

 

[Andrew Poulsom]

What happens if you use Transmit instead of TransmitANSI?