Cadenas de caracteres

Que tal Experto sigo esperanzado con trabajo de cadenas de caracteres, tengo una duda ingreso lo siguiente Álvarez ramírez, pedro jacinto en un textbox quiero que me devuelva en otro textbox ALVAREZ RAMÍREZ, Pedro Jacinto es decir de la coma a la izquierda mayúscula todas las palabras pero de la coma a la derecha mayúscula solo las primera letra de cada palabra. En visual basic hice algo parecido pero convertir la primera letra en mayúscula y el resto en minúscula... Pero tengo problema cuando intento separar de la coma a la derecha una cosa y de la coma a la izquierda otra cosa.
Desde ya Gracias...
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "ERROR", vbCritical, "ERROR AL ESCRIBIR"
Text1.SetFocus
Else
'Text1.Text = titulo(Text1.Text)
Text1.Text = Trim(LCase(Text1.Text)) & " "
LngSpace = InStr(Text1.Text, " ")
Do While LngSpace > 0
strTexto = strTexto & UCase(Mid(Text1.Text, 1, 1)) & Mid(Text1.Text, 2, LngSpace - 1)
Text1.Text = LTrim(Mid(Text1.Text, (LngSpace + 1)))
LngSpace = InStr(Text1.Text, " ")
Loop
titulo = strTexto
End If
End Sub