هل هذا الكود لقراءة بيانات مقسم الهاتف

السلام عليكم , هل هذا الكود صحيح لجلب سطر بيانات المكالمات من خط هاتف مرتبط بالكمبيوتر عن طريق سويتش

 Option Explicit

Private Sub Form_Load()
   MSComm1.CommPort = 3
   MSComm1.RThreshold = 1
   MSComm1.PortOpen = True
   Text1.TabIndex = 0
   Text1.Text = ""
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then                     ' Send data when Enter is pressed
      MSComm1.Output = Text1.Text
      Text1.Text = ""                               ' Clear TextBox
   End If
End Sub

Private Sub MSComm1_OnComm()
   Dim InBuffer As String
      InBuffer = MSComm1.Input
         If MSComm1.CommEvent = comEvReceive Then
            Text2.Text = Text2.Text & InBuffer
         End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
End Sub

وفقكم الله,,