Add quotes to textbox and move cursor between them

Hello JP,

Change you button code to this...

  If Not InstructionsBox.Value Like Chr(34) & "*" & Chr(34) Then
     InstructionsBox.Value = Chr(34) & InstructionsBox.Value & Chr(34)
  End If
  
  InstructionsBox.SelStart = Len(InstructionsBox.Value) - 1
  InstructionsBox.Verb xlVerbPrimary