Visual Basic - Eliminar Caracteres

Bueno necesito eliminar unos caracteres que me tira un indicador de una bascula son caracteres que no necesito para nada, bueno lo que me tira es el siguiente patron puede variar pero solo en el peso, bueno asi "1520 kg 10/05/2005" quisiera eliminar lo que dice "kg 10/05/2005" eso quiero eliminar y solo quiero que quede "1520" el peso puede variar puede ser hasta de 5 cifras y lo menos 3 cifras, pero aveces me tira unos caracteres antes del peso en numeros, por ejemplo "!.. 15200 kg 10/05/2005". por favor solo quiero el peso 15200 no quiero los caracteres "!.." no "kg 10/05/2005" ayudenme eso es lo unico que me falta para terminar un proyecto de la universidad.
Gracias

Fijate con las funciones de manejo de Strings, para el caso que nombras puedes hacer:

a=="1520 kg 10/05/2005"

Replace(Left(a,InStr(a,"kg")-1),"!..","")