'code for 'dear john' dialog
'expects cmdOK, cboReason, txtRecip
'designed to be in Word

Private Sub cmdOK_Click()
    'Create
    Dim doc As Document
    Set doc = Documents.Add
    doc.Activate
    doc.Range.InsertAfter "Dear "
    doc.Range.InsertAfter txtRecip.Text
    doc.Range.InsertParagraphAfter
    
    doc.Range.InsertAfter "I must leave you because of "
    doc.Range.InsertAfter cboReason.Text
    doc.Range.InsertParagraphAfter
    doc.Range.InsertAfter "Love, "
    doc.Range.InsertParagraphAfter
    doc.Range.InsertAfter "      Me."
End Sub

Private Sub UserForm_Activate()
  cboReason.AddItem "bad hair"
  cboReason.AddItem "bad breath"
  cboReason.AddItem "bad karma"
  
End Sub

Private Sub UserForm_Click()
  
End Sub