Visual Basic - recortar informacion de un textbox

hola tengo un textbox que es muy dinamico en el cual las palabras aparecen y se refresca entonces debo interceptar esos datos y clasificarlos por ejemplo si es abc25, bcd6 entonces debo guardar el valor 25 en el textbox "abc" y el valor 6 en el textbox "bcd" no se si me entienden pero nesecito de su ayuda

sanson:
Probá con esto
Dim s As String, ipos As Long, s1 As String, s2 As String
s = LCase$(Trim(txtDerIzq.Text)) 'der25, izq6
If Len(s) < 9 Then Exit Sub 'necesita 9 caracteres para escribir la mínima coordenada der1,izq 2
ipos = InStr(1, s, ",", vbTextCompare)
If ipos < 1 Then Exit Sub
s1 = Trim$(Left$(s, ipos - 1))
s2 = Trim$(Mid$(s, ipos + 1))
If Left$(s1, 3) = "der" Then
txtDer.Text = Mid$(s1, 4)
txtIzq.Text = Mid$(s2, 4)
ElseIf Left$(s1, 3) = "izq" Then
txtIzq.Text = Mid$(s1, 4)
txtDer.Text = Mid$(s2, 4)
End If

Saludos Ruri

A ver si esto te ayuda.

Private Sub TratarCadena(CadenaOrigen As String)
Dim Cad As String
Dim sElem As String
Dim Pos As Integer
Dim PosA As Integer

Cad = Trim(CadenaOrigen)

PosA = 1
Pos = InStr(PosA, Cad, ",")
sElem = Mid(Cad, PosA, Pos - 1)

Do Until sElem = vbNullString
AsignaTextBox sElem

PosA = Pos + 1
Pos = InStr(PosA, Cad, ",")
If Pos = 0 Then
sElem = vbNullString
Else
sElem = Mid(Cad, PosA, Pos - PosA)
End If
Loop

End Sub

Private Sub AsignaTextBox(sValor As String)
Dim Campo As String
Dim Valor As String

Campo = Left(sValor, 3)
Valor = Mid(sValor, 4, Len(sValor) - 3)

For Each ctr In Form1.Controls
If TypeName(ctr) = "TextBox" Then
If Campo = ctr.Name Then
ctr.Text = Valor
End If
End If
Next ctr
End Sub