 Sub Venier()
    'Keep values of RN$ and SN$ for next run
    Static RN$, SN$
    'Display dialogs to get recipient and spouse names
    RN$ = InputBox("Name of recipient:", "Recipient's Name", RN$)
    SN$ = InputBox("Name of spouse:", "Spouse's Name", SN$)
    
    If SN$ <> "" Then
        Selection.Value = "Thank you very much, " + RN$ _
        + ". Looking forward to seeing you and " + SN$ + "."
    Else
        'Skip the spouse part if the recipient has none
        Selection.Value = "Thank you very much, " + RN$ _
        + ". Looking forward to seeing you."
    End If
End Sub