Sub Main
Begin Dialog UserDialog 325, 290
  Text 10, 6, 144, 12, "Special Characters"
  PushButton 10, 24, 210, 21,   "E&m Dash"
  PushButton 10, 47, 210, 21,   "E&n Dash"
  PushButton 10, 70, 210, 21,   "&Open Double Quote"
  PushButton 10, 94, 210, 21,   "&Close Double Quote"
  PushButton 10, 118, 210, 21, "Open &Single Quote"
  PushButton 10, 142, 210, 21, "&Apostrophe"
  PushButton 10, 166, 210, 21, "Co&pyright"
  PushButton 10, 190, 210, 21, "&Registered Trademark"
  PushButton 10, 214, 210, 21, "One &Fourth"
  PushButton 10, 238, 210, 21, "One &Half"
  PushButton 10, 262, 210, 21, "Three &Quarters"
  CancelButton 230, 3, 88, 21
End Dialog
Dim Characters As UserDialog
On Error Goto Goodbye
ChoiceMade = Dialog(Characters)
Select Case ChoiceMade
   Case 1
    Insert Chr$(150)
   Case 2
    Insert Chr$(151)
   Case 3
    Insert Chr$(147)
   Case 4
    Insert Chr$(148)
   Case 5
    Insert Chr$(145)
   Case 6
    Insert Chr$(146)
  Case 7
    Insert Chr$(169)
  Case 8
    Insert Chr$(174)
  Case 9
    Insert Chr$(188)
  Case 10
    Insert Chr$(189)
  Case 11
    Insert Chr$(190)
  Case Else
  End Select
GoodBye:
End Sub