哈哈！老李，你没看错是我第一次发错了。
'定时周期触发
Sub procedure5
Dim tagOutput, objMSComm1
Dim strBuffer, strTemp, tagBuffer
Dim Buf,id,StartOn
'启动标志位，开始设备通讯状态检测
Set StartOn = HMIRuntime.Tags("StartOn")
Set id = HMIRuntime.Tags("ID")
Set objMSComm1 = HMIRuntime.Screens("Main").ScreenItems("MSComm1")
StartOn.Read
If StartOn.Value = 1 Then

'变量转为站号
id.Read
If Len(CStr(id.Value )) = 1 Then
Buf = "0" & CStr(id.Value )
Else
Buf = CStr(id.Value )
End if

If objMSComm1.PorTOpen = True Then

'read the buffer
stRTemp = ""
stRTemp = CStr(objMSComm1.InpuT)
If stRtemp <> "" And stRTemp = Chr(6) & Buf & Chr(13) & Chr(10)Then
procedure6'通过调用来点亮指示灯
Else
procedure7'通过调用来熄灭指示灯
End If

'检测结束，否则轮循下一台
If id.Value >=14 Then
StartOn.Write 0
HMIRuntime.Trace("Detection of completion! " & vbCrLf)
Else
id.Value =id.Value + 1
id.Write
If Len(CStr(id.Value )) = 1 Then
Buf = "0" & CStr(id.Value )
Else
Buf = CStr(id.Value )
End If

'send the tagoutput
tagOutput=Chr(5) & "ID" & Buf & Chr(13) & Chr(10)
objMSComm1.Output = tagOutput
HMIRuntime.Trace("sendstring:Detection ID " & Buf & vbCrLf)
tagOutput=""
End If
Else
HMIRuntime.Trace("No port is opened! " & vbCrLf)
End If
End If
end sub