If MSComm1.CDHolding Then
......
Else
strModem = strModem & StrConv(MSComm1.Input, vbUniCode)
End If
......
Private Sub Timer1_Timer()
......
If MSComm1.CDHolding Then
......
Else
Select Case lngModemState
......
Case conlngModemStateDialing
If Instr(strModem, vbCrLf & "BUSY" & vbCrLf) Then
'dial busy proc
ElseIf
......
ElseIf
......
End If