Private Sub cmdOK_Click()
   Dim strGreeting As String
   Dim strSenderAddress As String
   If optGreeting1 = True Then strGreeting = "Yours sincerely"
   If optGreeting2 = True Then strGreeting = "Yours faithfully"
   If optGreeting3 = True Then strGreeting = "Kind regards"
   If optGreeting4 = True Then strGreeting = "Live long and prosper"
   If cboSenderAddress.Value = "London" Then
      strSenderAddress = "Galactic Enterprises" _
         & vbCrLf & "1001 Federation Plaza" _
         & vbCrLf & "London" & vbCrLf & "Earth"
   End If
   If cboSenderAddress.Value = "Jupiter Station" Then
      strSenderAddress = "Galactic Enterprises" _
         & vbCrLf & "555 Upper Commerce Ring North" _
         & vbCrLf & "Jupiter Station"
   End If
   If cboSenderAddress.Value = "Deep Space 9" Then
      strSenderAddress = "Galactic Enterprises" _
         & vbCrLf & "140 Main Concourse West" _
         & vbCrLf & "UFP Deep Space 9"
   End If
   Application.ScreenUpdating = False
   With ActiveDocument
      .Bookmarks("RecipientName").Range.Text = txtRecipientName.Value
      .Bookmarks("RecipientAddress").Range.Text = txtRecipientAddress.Value
      .Bookmarks("Salutation").Range.Text = txtSalutation.Value
      .Bookmarks("Position").Range.Text = txtPosition.Value
      .Bookmarks("InterviewLocation").Range.Text = cboInterviewLocation.Value
      .Bookmarks("InterviewDay").Range.Text = cboInterviewDay.Value
      .Bookmarks("InterviewDate").Range.Text = txtInterviewDate.Value
      .Bookmarks("InterviewTime").Range.Text = txtInterviewTime.Value
      .Bookmarks("InterviewDuration").Range.Text = cboInterviewDuration.Value
      .Bookmarks("Greeting").Range.Text = strGreeting
      .Bookmarks("SenderName").Range.Text = txtSenderName.Value
      .Bookmarks("SenderPosition").Range.Text = txtSenderPosition.Value
      .Bookmarks("SenderAddress").Range.Text = strSenderAddress
   End With
   Application.ScreenUpdating = True
   Unload Me
End Sub