Hola programo en VB6 y me he encontrado con un problema

Actualmente estoy realizando una funcion que alinea el texto en un RichTextBox con todo lo que se puede hacer dentro, Bold, Italic, etc.

y al pasar un caracter A tamaño 8.5 del richtextbox
al pasar el caracter A se hace de tamaño 8.75

porque cambia el tamaño de letra mostrado de un richtextbox a un label, y pasa con todas las caracteristicas de formato excepto el tamaño especificado ya lo he hecho manual y el label sigue mostrandolo en mas decimales.