Button on a userform to add and remove text from left side of textbox?

[vbaNumpty]

I am wondering how I would go about adding a button to a userform that could add and remove a portion of text to the left side of a textbox.

Simple example would be a button labeled 'ATTENTION' that when clicked would add the following text to the left of a notebox: "**ATTENTION**"

Clicking the button a second time would 'undo' and remove the same text from the left side of the notes box.

When I say the left side, the idea is that there can already be text in the note box and clicking the button acts as a toggle to add and remove the text '**ATTENTION**' to the notesbox without disrupting or impacting existing text. The left side so that it precedes any existing text when viewed later in a spreadsheet.

 

[Rick Rothstein]

Give this CommandButton Click event code a try...

Private Sub CommandButton1_Click()
  Dim Word As String
  Word = "*ATTENTION* "
  If TextBox1.Text Like Replace(Replace(Replace(Word, "*", "[*]"), "?", "[?]"), "#", "[#]") & "*" Then
    TextBox1.Text = Mid(TextBox1.Text, Len(Word) + 1)
  Else
    TextBox1.Text = Word & TextBox1.Text
  End If
End Sub

Note: I generalized it for you so you can assign any text to the Word variable and the CommandButton will perform the toggle effect you asked for.

 

[vbaNumpty]

Give this CommandButton Click event code a try...

Private Sub CommandButton1_Click()
  Dim Word As String
  Word = "*ATTENTION* "
  If TextBox1.Text Like Replace(Replace(Replace(Word, "*", "[*]"), "?", "[?]"), "#", "[#]") & "*" Then
    TextBox1.Text = Mid(TextBox1.Text, Len(Word) + 1)
  Else
    TextBox1.Text = Word & TextBox1.Text
  End If
End Sub

Note: I generalized it for you so you can assign any text to the Word variable and the CommandButton will perform the toggle effect you asked for.

Works like a charm! Thank you very much.