Visual Basic - eliminar palabras luego de punto

hola.tengo este texto:
a="respaldo de un pronostico.mdb" dicho texto viene por defecto ya con el .mdb. necesito quitarle el texto luego del .mdb.como hago pa q quede solo as:
a="respaldo de un pronostico"

gracias por su ayuda colegas..........
haydee

La condicion es para que no de error si no tiene el punto

Texto="respaldo de un pronostico.mdb"
Posi=instr(Texto,".")
IF Posi>0 then Resul=left$(Texto,Posi-1)