GoTo SetSMBaud_err_handler
End If
If Asc(strInputBuf) = 255 Then
MsgBox “Set Baud Rate Succesfully”
ElseIf Asc(strInputBuf) = 238 Then
MsgBox “SiteMaster Timed out”
GoTo SetSMBaud_err_handler
ElseIf Asc(strInputBuf) = 224 Then
MsgBox “Invalid Baud Rate - ERR 224"
GoTo SetSMBaud_err_handler
Else
MsgBox “Invalid Baud Rate - ERR ” + CStr(Asc(strInputBuf)) GoTo SetSMBaud_err_handler
End If
Exit Sub
SetSMBaud_err_handler:
commCtrl.Settings = PreviousSettings End Sub
118 | Site Master PM |
