Ofimática - Borrar por codigo parte de los datos de una celda

Hola, no encuentro la manera de poder borrar por código VB parte de los datos de una celda, concretamente los tres últimos valores o dígitos.
Gracias por la ayuda.

[A1].Value = Mid([A1].Value, 1, Len([A1].Value )-3)

OK Juan, lo intento asi.
gracias.