كيفية استخلاص رقم من وسط جملة بحيث يكون الرقم الاحدث

كيفية دمج الكودين مع هذا الميثال ارجو التوضيح من الاخوى الكرام

Private Sub Form_Timer()

Me.txt_time = Time

If Me.MSComm1.CommEvent = comEvReceive Then

'MSComm1.InputMode = comInputModeText

Dim buff As Variant

Dim bufflen As Integer ' string length 14chrcters

Dim MyStr As String

TXT_Received.Text = ""

'MSComm1.InputLen = 0

buff = MSComm1.Input

'txtnotfilt.Text = buff

bufflen = Len(buff)

If bufflen > 15 Then bufflen = 15

MyStr = Trim(StrConv(buff, vbUnicode))

For s = 1 To bufflen - 1

For i = 0 To 9

If Mid$(MyStr, s, 1) = i Then

Me.TXT_Received.SetFocus

Me.TXT_Received.Text = Me.TXT_Received.Text & i

End If

Next

Next

End If

End Sub

Private Sub MSComm1_OnComm()

If Me.MSComm1.CommEvent = comEvReceive Then

MSComm1.InputMode = comInputModeText

Dim buff As Variant

Dim bufflen As Integer ' string length 14chrcters

Dim MyStr As String

TXT_Received.Text = ""

MSComm1.InputLen = 0

buff = MSComm1.Input

'txtnotfilt.Text = buff

bufflen = Len(buff)

If bufflen > 12 Then bufflen = 12

MyStr = Trim(StrConv(buff, vbUnicode))

For s = 1 To bufflen - 1

For i = 0 To 9

If Mid$(MyStr, s, 1) = i Then

Me.TXT_Received.SetFocus

Me.TXT_Received = Me.TXT_Received & i

End If

Next

Next

End If

End Sub