Add quotes to textbox and move cursor between them

I figured it out - this seems to be working!

Private Sub AddQuote_Click()

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


End Sub