前方に空白(スペース)を埋めて桁を揃えて表示して見てください。(SampleNo=371)itmX.SubItems(1) = Right$(" " & WSHFolder.GetDetailsOf(WSHFile, 1), 10)* = スペース*****1 KB****10 KB***100 KB