hola
esta es una forma sencilla:
defines dos variables
digamos que aux y aux2:
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
Y si quieres que sirva para cualquier longitud, te vale con recorrer la cadena de los extremos al centro e ir comprobando elemento a elemento (que sean iguales).