VBA changing Text Style

Running MicroStation V8I Select series 3

This is what I get after running the VBA Recorded Macro. I did add a few lines to see if it would solve problem. Manually when changing Text Styles if you double click on the new selection the previous highlight goes off and the new one comes on. I set it to active and the Font, Height, Width change. Using the Macro they both  stay highlighted ? The Snipit picture shows

how they are both on and  the Change Text Attributes not matching what was just done. in the upper portion of the picture 0.1 and  0.075, it stayed on the previous value 0.25 0.25

but doing it manually they both change. I have to do this enough times the VBA would really save time or Key-in if it was possible..

 This is from Macro

This is manually even without using the , Active

Hope this explains my Problem:

Sub MacroSetTextStyle1()
' 013119 - Testing

' Start a command
CadInputQueue.SendCommand "MDL KEYIN textstyle textstyle dialog open"

CadInputQueue.SendCommand "TEXTSTYLE DESELECT ALL"
CadInputQueue.SendCommand "TEXTSTYLE DESELECT ALL"
CadInputQueue.SendCommand "TEXTSTYLE SELECT ""Style (none)"""
CadInputQueue.SendCommand "TEXTSTYLE DESELECT ALL"
CadInputQueue.SendCommand "TEXTSTYLE SELECT ""Style (none)"""

CadInputQueue.SendCommand "TEXTSTYLE SELECT "" Dupont84_100x075"""
CadInputQueue.SendCommand "TEXTSTYLE Active"

' CommandState.StartDefaultCommand
End Sub