Por item não tem como alinhar, tem de ser por Colunas, veja se consegue adaptar :

Private Sub UserForm_Initialize()
  
    With ListView1
        'Propriedades de Alinhamentos
        'lvwColumnLeft, lvwColumnCenter,lvwColumnRight
        .ColumnHeaders.Add , , "Nome", 90, lvwColumnLeft 'Texto
        .ColumnHeaders.Add , , "Data", 90, lvwColumnCenter 'Data
        .ColumnHeaders.Add , , "Valor", 60, lvwColumnRight 'Numero
        .View = 3
    
        Set li = ListView1.ListItems.Add(, , "Mauro")
        li.SubItems(1) = "29/08/2016"
        li.SubItems(2) = "110,55"
     
        Set li = ListView1.ListItems.Add(, , "Coutinho")
        li.SubItems(1) = "30/08/2016"
        li.SubItems(2) = "1.120,64"
  End With
  
End Sub

[]s