XY=(var1),(var2) does not read var, only numeric values seems read

Question

Hello,
my VBA does not seem to read the variables on the xy= command/ key-in. So xy=100,200 works ok but xy=(var1),(var2) does not work. the VBA reads value zero by default. I have a msgbox (var1), so the values are really filled in. There is no syntax error either.
Thank you very much for any clue
Nico

MaryB · Answer

The issue here is that you need to assemble the command string (sCmd) out of your variables. That is what 
 sCMD = "xy=" & CStr(x) & "," & CStr(y) does. 
 "xy=" and "," are text. Cstr(x) and CStr(y) convert the double values to strings for use in the command, and & is the symbol to concatenate the entire line into a single string. That string is then used to the keyin sent to MicroStation. 
 You have example code right in front of you, but you have strayed significantly from it. Rewrite your code to follow the steps as shown in the example. Learn what each step does. Once you understand how the code works, you can adjust it if you like, but if you don't understand what your example is doing, your success at rewriting it is going to be nil. 
 Dim Point_X0 as Double
Dim Point_Y0 as Double

' define coordinates
Point_X0 = 1234
Point_Y0 = 5678

'create command string
Dim sCmd as String
sCmd = "xy=" & CStr(Point_X0) & "," CStr(Point_Y0)

'Start the Place Line command
CadInputQueue.SendKyin "place line"

'place the first data point at zero
CadInputQueue.SendDataPoint Point3DZero

' send the previously defined command string
CadInputQueue.SendKeyin sCmd

'reset to end the line
CadInputQueue.SendReset 
 There are other things amiss in your code. I have no idea what "L" is or where that is defined, so that's an obvious problem as well.