Create SetCompanyCharField.vb