is it possible to convert the text to shape in excel via vba?

For ex: If A1 = 100, then C1 = Circle shape with green color