Even and Odd digits

[Fyr]

I have a textbox1 that accepts Number digits only.
I want to take the value of textbox1 and separate the even and odd digits.
For Example:
Textbox1.value is 1000107113646084
Even digits numbers are 00013404
Odd digits numbers are 10171668

How would I go about doing that?

Thanks for taking a look!

 

[MrKowz]

Try:

Public Sub SplitEvenOdd()
Dim EvenNum As String, _
    OddNum  As String, _
    i       As Long
    
For i = 1 To Len(textbox1.Value)
    If Right(i, 1) Like [13579] Then
        OddNum = OddNum & Mid$(textbox1.Value, i, 1)
    Else
        EvenNum = EvenNum & Mid$(textbox1.Value, i, 1)
    End If
Next i
    
End Sub

 

[Norie]

If you mean the 2nd, 4th, 6th... and 1st, 3rd, 5th... characters then this should work.

Private Sub CommandButton1_Click()
 
    strs = TextBox1.Value
 
    For i = 1 To Len(strs) Step 2
        strOdd = strOdd & Mid(strs, i, 1)
        strEven = strEven & Mid(strs, i + 1, 1)
    Next i
 
    TextBox2.Value = strEven
 
    TextBox3.Value = strOdd
 
End Sub