Aca tenes un ejemplo, pero tengo que serte sincero, no encontre diferencia entre left y justify.
Cambia index por el valor
Private Sub Option_Click(Index As Integer)
´ PFA_LEFT = 1
´ PFA_RIGHT = 2
´ PFA_CENTER = 3
´ PFA_JUSTIFY = 4
Dim pf As PARAFORMAT
pf.wAlignment = Index
pf.dwMask = PFM_ALIGNMENT
pf.cbSize = LenB(pf)
Debug.Print SendMessage(Rich.hWnd, EM_SETPARAFORMAT, 0, pf)
End Sub