T = 3
      If OB_PORT(3).Value = True Then CPORT = 4
      MSComm1.CommPort = CPORT
      
      With MSComm1
           .PortOpen = True
           .Handshaking = comRTS
           .Handshaking = comNone
           .Output = Chr(13) & Chr(10)
           .PortOpen = False
      End With
      
      STR = ""
      STR = STR & Chr(13) & Chr(10)
      TB_MEMO.Text = STR & vbNewLine