Visual Basic - Cómo detecto un caractar al inicio y al final?

Hola! Alguien sabe como puedo hacer para detectar el caracter de inicio y final de una cadena... yo tengo # 123450KG. Debería detectar el numeral y el KG para verificar que recibi bien la cadena... como hago? Gracias.

Para el KG Texto=Right$(Cadena,2)
Para el Numeral Numeral=Mid(Cadena,2,Len(Cadena)-3)