Change label font name
Private Sub OptionButton4_Click() lblOutput.Font.name = "Times New Roman" End Sub