visual basic to Vitamin I