[K@kTuS]

Код:

MScomm1.CommPort = 1
MScomm1.PortOpen = True
MScomm1.Settings = "1200,N,8,1"
MScomm1.DTRenabled = True
Timer2.Interval = 5

Private Sub timer2_timer()
If mscomm1.CTSholding = True Then
timer1.enanled = True
End If
End Sub

использовал cts и dtr