Visual Basic - Cuadro de dialogo

Hola a todos, en un editor de menu tengo un mdi con un menu formato fuente y un formulario con un richtextbox, ya me muestra el cuadro de dialogo de fuente con el siguiente código
Private Sub mnufuente_Click()
' Establecer CancelError a True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Establecer la propiedad Flags
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
' Presentar el cuadro de diálogo Fuente
CommonDialog1.ShowFont
Form1.Font.Name = CommonDialog1.FontName
Form1.Font.size = CommonDialog1.FontSize
Form1.Font.Bold = CommonDialog1.FontBold
Form1.Font.Italic = CommonDialog1.FontItalic
Form1.Font.Underline = CommonDialog1.FontUnderline
Form1.FontStrikethru = CommonDialog1.FontStrikethru
Form1.ForeColor = CommonDialog1.Color
Exit Sub
ErrHandler:
' El usuario ha hecho clic en el botón Cancelar
Exit Sub
End Sub

Pero no se que código debo agregar para que ejecute la acciónde cambiar el tamaño de letra. color en el Richtextbox.

Agradezco algún experto que me pueda colaborar. Mil gracias