Call ErrMessage 是个控件还是一个函数啊！请高手指教 啊！

我本人是做现场设备维护的，我现在正编一个VB与欧姆龙PLC通信的程序，但是我收集的资料有不明白的地方，特此向各位老师请教！
读出DM0
Private Sub Command3_Click()
Dim outstring As String
 MSComm1.InBufferCount = 0 'clear off  inbuffer
   outstring = "@" + "00" + "RD" + "0000" + "0001"
   fcdd$ = XOR(outstring)
   outstring = outstring + fcdd$ + "*" + Chr$(13)
   MSComm1.Output = outstring
   Time_out = tim
   
  '判断通讯错误
   Do
     If tim > (Time_out + 1) Then
       ERROR_COM = True
     Else
       ERROR_COM = False
     End If
       DoEvents
   Loop Until ((MSComm1.InBufferCount >= 11 + 4 * Lengh) Or (ERROR_COM = True))
   
   Instring = MSComm1.Input
   order1 = Mid(Instring, 6, 2)  '结束码
Call ErrMessage(order1)   加黑的部分是什么意思啊？我看不懂啊？运行总出错啊
     Text2.Text = Mid(Instring, 8, 4)    '取出数据位    
End Sub

其中 ERROR_COM 是一个控件或是一个函数吗！我刚学不是很懂啊！
还有Call ErrMessage 是个控件还是一个函数啊！请高手指教 啊！

我在天津南开区工作！我的电话13820932192！有相同兴趣者可以共同探讨！