Create truncatebycharacter.vbs