VBA code help "CadInputQueue"

I'm a beginner, just learning,  This may be simple but I'm not finding information on commands

I need to do code for change level, color, line type and line thickness, then place line.

My current code is:

Dim saveactivelevel
Dim point As Point3d
point.X = 0
point.Y = 0

CadInputQueue.SendCommand "active level 2"           REM works
CadInputQueue.SendCommand "active color 2"           REM works
'CadinputQuese.SendCommand "active style 0"           REM doesn't work
'CadinputQuese.sendCommand "active weight "6"       REM doesn't work
CadInputQueue.SendCommand "PLACE LINE "          REM bring up the dialog but doesn't start the line when pick first point.

End Sub

Thanks for any help.