¿Cómo editar un editor de texto usando VB?

Sub Privado Bold_Click()

Text1.FontBold = True

Fin Sub

Sub Privado Clean_Click()

Text1.Text = ""

End Sub

Sub privado Display_Click()

Text1.Text = inpext

End Sub

Sub privado Exit_Click()

Fin

Fin Sub

Sub privado Font20_Click()

Texto1. FontSize = 20

End Sub

Private Sub Input_Click()

inpt = InputBox("Ingrese un fragmento de texto", "Cuadro de diálogo de entrada")

inptext = inptext & inpt

End Sub

Private Sub Italic_Click()

Text1.FontItalic = True

End Sub

Private Sub Normal_Click()

Text1.FontBold = False

Text1.FontItalic = False

Text1 .FontUnderline = False

Text1.FontSize = 10

End Sub

Sub privado Under_Click()

Text1.FontUnderline = True

Fin del subtítulo