Вы не можете получить доступ к текстовому полю на вашем листе напрямую, но можете попробовать через коллекцию Shapes
.
Используйте следующее:
var = CInt(Sheets("sheet1").Shapes("Title_" & BUTTON_PRESSED).DrawingObject.Text)
Убедитесь, что у вас есть целочисленное значение, введенное вэто текстовое поле.