Private Sub CommandButton3_Click()
  Selection.Font.Size = Selection.Font.Size + 1
End Sub