Visual Basic 6.0 - Extraer numero entre /

Dim xSoloTexto As string
        xSoloTexto = Text1.Text
        xSoloTexto = Replace(xSoloTexto, "/", "")
Text1.Text = xSoloTexto
----------------------------------------------
Hola Buenas tarde !
Con este código resolví el tema de eliminar las / de los texto.
Ahora tengo otro problema que no encuentro la forma de realizarlo..
Ejemplo: tengo un Texto, su dato es 15/15248/25
Tengo que extraer los números dentro de la / y pasarlo a una variable por ejemplo
me tiene que quedar 15248
Ayuda !
Desde ya Saludos.