i want right space only the below code is right alighment and left spaces
if Len(aSheet.Cells(i, "C")) < 8 then
sText = Right$(Space$(8)) & aSheet.Cells(i, "i").Value, 8) &