Visual Basic - No alinea a la derecha

Tengo este código:

---------------------
Set objWord = CreateObject("Word.Application")
'objWord.Caption = "Temporal"
objWord.Visible = True

Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

objSelection.Font.Name = "Verdana"
objSelection.Font.Size = "10"
objSelection.Font.Bold = True
objSelection.Font.Underline = True
objSelection.TypeText "Roberto García Martín"
objSelection.TypeParagraph()

objSelection.Font.Bold = False
objSelection.Font.Underline = False
objSelection.TypeText "Calle tres de abril" & chr(13) & "10529 Majadas" & chr(13)& "Cáceres"
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objSelection.TypeParagraph()

objSelection.ParagraphFormat.Alignment = wdAlignParagraphRight

objSelection.Font.Name = "Verdana"
objSelection.Font.Size = "10"
objSelection.Font.Bold = True
objSelection.Font.Underline = True
objSelection.Alignment=
objSelection.TypeText "AEAT Caceres"
objSelection.TypeParagraph()
objSelection.Font.Bold = False
objSelection.Font.Underline = False
objSelection.TypeText "Calle tres de abril"&chr(13)& "10529 Majadas" &chr(13) & "Cáceres"
objSelection.TypeParagraph()

strComputer = "."

objDoc.SaveAs("c:\temporal.doc")
'objWord.Quit
---------------------------

esto no me funciona "objSelection.ParagraphFormat.Alignment = wdAlignParagraphRight "
Me podriais dar una solución.
gracias.