Visual Basic Filesystemobject Getfolderbyid