Visual Basic - richtextbox en vb6.0

Visual basic 6.0

Tengo un texto en un richtextbox (esta información me la trae de un recorset).
con la función LCase(rs!informacion) me trae todo el texto en minúscula. Lo que necesito es que la primera letra de la línea me la traiga en mayúscula y el resto en minúscula, un ejemplo de esto sería

TEXTO QUE TRAE EL RECORSET: HOLA MUNDO
Y como la necesito sería Hola mundo

Alguien me podría ayudar?????

Dim text As String
text = "HOLA MUNDO CRUEL..."

text = StrConv(text, vbProperCase)
Debug.Print text

pero con esta función me devuelve la primera letra de cada línea en mayúscula.
es decir si tengo el siguiente párrafo en mayúscula:
LAS FLORES SON HERMOSAS, con esta función me devuelve lo siguiente
Las Flores Son Hermosas y lo que necesito es que después de cada salto de línea en el Richtexbox me devuelva solo la primera letra en mayúscula, para el ejemplo anterior seria lo siguiente:
Las flores son hermosas

Gracias por su colaboración.....

Muchas gracias... ya pude solucionarlo.
Lo dejo por si alguien tiene la misma duda

nomvariable = nomvariable & UCase(Left(rs!MM, 1)) & LCase(Mid(rs!MM, 2, Len(rs!MM) - 1)) & vbCrLf & vbCrLf

y arroja el siguiente resultado:
LAS FLORES SON HERMOSAS, se obtiene Las flores son hermosas.