Разделите размер на 1024, чтобы получить его в kB и округлите значение до соответствующего количества цифр (например, 2):
For Each ObjFile In ObjFiles
size = Round(ObjFile.size / 1024, 2)
ObjOutFile.WriteLine size & String(50 - Len(size), " ") & ObjFile.Path
Next