Visual Basic - richtextbox

problema kon el alineamiento del texto seleccionado.
Esta es lo k hago en el caso de k el boton sea alinear en el centro

Texto = rtbTexto.SelRTF
If rtbTexto.SelText <> "" And rtbTexto.SelAlignment <> 2 Then
Texto = mDatos.Alinear_Centro(Texto)
rtbTexto.SetFocus
rtbTexto.SelRTF = Texto
end if
y la funcion de alinear_centro funciona bien porque es = a las k he hecho para la negrita y demas
pero kambiando un par de letras k es en realidad lo k kambia en el codigo RTF y esas m funcionan
pero estas otras no
si alguien tiene la solucion k non sea la de poner la propiedad
rtbTexto.SelAlignment = 0
sino k modifique el codigo del rtf
gracias

Solo por curiosidad??? Eres del pais vasco???

tengo este codigo para el botón de alinear al centro:
Private Sub imgAButtons_Click(intIndex As Integer)
\' don\'t do anything if there is not active
\' MDI child form.
If Forms.Count > 1 Then
\' call the procedure that sets the alignment
Menu_FormatAlign frmMDIForm1.ActiveForm, intIndex
End If
End Sub
AHORA TE ENVIO EL MENU DE Menu_FormatAlign

es este

Sub Menu_FormatAlign(mdiFrm2 As Form, intIndex As Integer)
With frmMDIForm1
Select Case intIndex
Case 0 \'left
\'set images
.imgAButtons(0).Picture = .ilsImageList1.ListImages(\"left_d\").Picture
.imgAButtons(1).Picture = .ilsImageList1.ListImages(\"center_u\").Picture
.imgAButtons(2).Picture = .ilsImageList1.ListImages(\"right_u\").Picture
\'set alignment
mdiFrm2.rtfRichTextBox1.SelAlignment = rtfLeft
Case 1 \'center
\'set images
.imgAButtons(0).Picture = .ilsImageList1.ListImages(\"left_u\").Picture
.imgAButtons(1).Picture = .ilsImageList1.ListImages(\"center_d\").Picture
.imgAButtons(2).Picture = .ilsImageList1.ListImages(\"right_u\").Picture
\'set alignment
mdiFrm2.rtfRichTextBox1.SelAlignment = rtfCenter
Case 2 \'right
\'set images
.imgAButtons(0).Picture = .ilsImageList1.ListImages(\"left_u\").Picture
.imgAButtons(1).Picture = .ilsImageList1.ListImages(\"center_u\").Picture
.imgAButtons(2).Picture = .ilsImageList1.ListImages(\"right_d\").Picture
\'set alignment
mdiFrm2.rtfRichTextBox1.SelAlignment = rtfRight
End Select
End With
End Sub

Espero que te sirva de algo, yo solo tengo el de alinar a la izq, a la dcha y el centro, justificación no sé, si sabes tu si se puede y como, agradecería tu ayuda.