Visual Basic - Separar parte de un texto (C:PruebaPreba2Libro)

Tengo en un Texto1 lo siguiente: C:PruebaPreba2Libro1.xls y necesito colocar en el Texto2 lo siguiente :Libro1.xls como se puede hacer, en concecuencia que en el Texto1 puede cambiar las direccón de la ruta
Desde ya gracias

Text1 C:PruebaPreba2Libro1.xls
Text2 debe devolver =Libro1.xls

Con el comando split puedes separar el texto en varias cadenas, hacia una matriz.
Intenta con esto:

Private Sub Command1_Click()
Dim a As Variant

a = Split(Text1.Text, "")
Text2.Text = a(UBound(a))

End Sub

Creo que esto no muestra las diagonales, pero es lo que está entre las comillas.

Saludos.