I have found two different codes to do this but I can't get it to work for me. I have tried to right align my strings. But when I do my varible goes to nothing.

Can someone help my right align my data so it will sort.

Sub ShowFolderList(folderspec)
Dim FolderScript, MainFolder, SubFolder, User, CurrentDir
Dim Size As String
Dim SizeTrim As Single

Set FolderScript = CreateObject("Scripting.FileSystemObject")
Set MainFolder = FolderScript.GetFolder(folderspec)
Set CurrentDir = MainFolder.SubFolders
For Each SubFolder In CurrentDir
DoEvents

On Error Resume Next
User = SubFolder.Name
Size = SubFolder.Size / 1052613.06
SizeTrim = Format(Size, "#,##0")

If Size > Text1.Text Then
ListView1.Font.Bold = True
Else
ListView1.Font.Bold = False
End If

ListView1.ListItems.Add 1, , User
ListView1.ListItems(1).ListSubItems.Add 1, , Right(CStr(SizeTrim) & String(4, " "), 4)
User = User & vbCrLf
Size = "N/A"
Next

End Sub

At the end ListView1.ListItems(1).ListSubItems.Add1, it adds nothing. But the varible is "SizeTrim" still there.