MSComm1.Input 배열 크기 비교가 잘 안 됩니다

MSComm1.Input으로 받은 값의 크기를 비교해 출력하려고 해요.
값은 항상 XXXX(XXXX) 형식인데, 아래처럼 작성하면 작은 값도 출력됩니다.
무엇을 잘못한 걸까요?

myInput = MSComm1.Input
If Len(myInput) Len(12341234) Then
recvData.Text = recvData.Text & Mid(myInput, 2, 4) & "," & Mid(myInput, 8, 4) & vbCrLf
ElseIf Text1.Text = Text1.Text & myInput Then
End If