Visual Basic - Extraer una cadena de una variable

Hola... espero expresarme bien para explicar lo que quiero hacer.

De un procedimiento Open en el cual obtengo un nombre de un Archivo

por ejemplo la variable Temp seria c:Archivo de Programassubdirectoriosubdirectorio ombredel fichero.rar

Bueno pues yo quiero asignar a una variable solo el "nombredelfichero.rar" y eliminar lo de .rar con el fin de crear una carpeta con ese nombre.

asi que solo quedaria "nombredefichero"

Alguien me puede ayudar

Dim aText As String, s As String, variable As String
aText = "c:\Archivo de Programas\subdirectorio\subdirectorio\nombredelfichero.rar "
s = Mid(aText, InStrRev(aText, "\") + 1, Len(aText))
variable = Left(s, InStr(s, ".") - 1)

Resultado de variable: "nombredelfichero"

Perfecto... MUCHAS GRACIAS.

ERes un Lince jejeje.