Hola:
Creo que deberías probar así:
Private Sub Command4_Click()
CommonDialog1.ShowColor
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelColor = CommonDialog1.Color
End Sub
La propiedad SelColor es para el texto seleccionado, por lo tanto lo que este código hace como puedes ver es antes de asignar la propiedad seleccionar todo el texto y así parece funcionar.
Respecto a los ficheros INI, que parece descartas, si quieres dale un vistazo al siguiente enlace que utiliza las funciones en un Modulo en lugar de una clase y funciona perfectamente. Tu mismo.
Leer y Grabar archivos INI
Saludos