Visual Basic.NET - una pregunta más

Gracias ante todo por lo de capicua
perdonen si esta pregunta les parce estupida pero para mi es importante como principiante en este mundo

q es lo q hace mid
aux = Mid(tunumero, 1, 1)
aux2 = Mid(tunumero, 4, 1)
If aux = aux2 Then
aux = Mid(tunumero, 2, 1)
aux2 = Mid(tunumero, 3, 1)
If aux = aux2 Then
MsgBox ("Capicua")
Else
MsgBox ("No Capicua")
End If
Else
MsgBox ("No Capicua")
End If

es para poder comprender mejor esta solución q realmente es efectiva
gracias

Hola espero que esto te sirva.

tamañoNumero = len(textbox1.text) 'se cuanto de largo tiene
if tamañoNumero = mod(2) then 'se si es par o si es impar
'es par
aux1=mid$(textbox1,1,(len(textbox1)/2)) 'Agrego la primera mitad
aux2=mid$(textbox1,(len(textbox1)/2)+1,(len(textbox1)/2)) 'Agrego la segunda mitad
for x = 1 to len(aux2) 'invierto la segunda mitad
aux3 = mid$(aux2,len(aux2)-x,1)
next
if aux1=aux3 then 'pregunto si es capicua
msgbox "Es Capicua"
else
msgbox "No es Capicua"
end if
else
'es impar
ESTE HACELO SOLITO YA QUE ES FACIL PERO NO TANTO, ACORDATE QUE TENES QUE ANULAR EL SIGUIENTE NUMERO A LA MITAD EJ: 333 4 333.
end if

SALUDOS
CHRISTIAN