Display variable text in sheet textbox

[novice1]

I have this code that I want to display a text in a textbox if any cell I select in column B is either blank or not.

If the selected cell is blank, display in the textbox "New Expense" and change the text "WHITE" and the textbox "BLUE". If the cell is NOT blank, display in the textbox "Edit Expense" and change the text "BLACK" and the textbox "RED". Can someone assist. Thank you for your help.

If Not (Nothing Is Application.Intersect(Target, Range("B11:B250"))) = 0 Then
    Worksheets("Calculator").Shapes("Register").TextFrame.Characters.Text = "New Expense"
Else
    Worksheets("Calculator").Shapes("Register").TextFrame.Characters.Text = "Edit Expense"
End If