请高手帮忙看一下程序！

Private Sub Command1_Click()
 MSComm1.PortOpen = True
 MSComm1.Output = "0LR-606208[CR]0SP1000[CR]0NP[CR]0M[CR]"&vbCr 
 Dim Buf$
 Buf = Trim(MSComm1.Input)
 Do While Len(Buf) = 0
 Loop
 MSComm1.Output = "2LR-606208[CR]2SP1000[CR]2NP[CR]2M[CR]"&vbCr 
End Sub


0LR-606208[CR]0SP1000[CR]0NP[CR]0M[CR]是fualhaber电机的控制语句，小弟想要用vb来通过rs232向电机的驱动器发控制程序，以上是编的程序，但是没有成功。希望高手指点！！！

补充：VB ,  基础类