[dubai.eig]

السلام عليكم ورحمة الله

لدي برنامج SerialPort1
اقوم بارسال رمز ويرجع لي الجواب 
في RichTextBox2

كود :

   Private Sub SerialPort1_DataReceived(sender As System.Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
       ReceivedText(SerialPort1.ReadExisting())
   End Sub

   Private Sub ReceivedText(ByVal [text] As String) 'input from ReadExisting
       If Me.RichTextBox2.InvokeRequired Then
           Dim x As New SetTextCallback(AddressOf ReceivedText)
           Me.Invoke(x, New Object() {(text)})
       Else
           Me.RichTextBox2.Text &= [text] 'append text
       End If
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click


       SerialPort1.Write("ATCAF0" & vbCr)
       Thread.Sleep(3000)
       SerialPort1.Write("ATSH7E0" & vbCr)
       Thread.Sleep(3000)
       SerialPort1.Write("021A90" & vbCr)




   End Sub

مثل ما باين اقوم بارسال رموز ويرجع لي الاجابه 

كود :

>OK

>OK

>10135A903347434E
2159394546364D47
22313237383534AA

في الاجابه في RichTextBox2

بعد الانتهاء من العمليه اريد ابحث عن اول اربع ارقام اذا كانت موجوده 1013

اذا كانت موجوده انسخهم في مربع حوار اخر RichTextBox3 
ثلاث اسطر اجعلهم سطر واحد 

كود :

>10135A903347434E2159394546364D4722313237383534AA

في RichTextBox3 


اتمنى اكون قدرة اوصل الفكرة

وشكرا لكم