me.txtbox1.text = "abcdefgh"
dim StartPosition as int32 = 1
dim StringLength as int32 = 3
dim mySubString as string
mySubString = me.txtbox1.text.substring(StartPosition, StringLength)
'now you shoud have "bcd" in the mySubString variable.
Dim idx AsInteger
Dim textOut As stringbuilder = New Stringbuilder
For idx = 0 To Len(Me.TextBoxIn.Text) - 1
SelectCase idx
Case 1, 3, 4, 5, 7, 9, 11
textOut.Append(Me.TextBoxIn.Text.Substring, idx, 1)
CaseElse
...
EndSelect
Next