Problemas con Command, Label y TextBox en programación VB

Subcomando privado1_Click()

Text1.FontBold = No Text1.FontBold

setLab

End Sub

Subcomando privado2_Click()

Text1.FontItalic = No Text1.FontItalic

setLab

Fin Sub

Subcomando privado3_Click()

Text1.FontUnderline = No Text1.FontUnderline

setLab

End Sub

Sub privado setLab()

Label1.Caption = ""

Si Text1.FontBold Entonces Label1.Caption = " Negrita"

Si Text1.FontItalic Entonces Label1.Caption = Label1.Caption & " Cursiva "

Si Text1.FontUnderline Entonces Label1.Caption = Label1.Caption & " Subrayado"

Si Label1.Caption = "" Entonces Label1.Caption = Label1.Caption & " Predeterminado"

Label1.Caption = "Fuente actual:" amp; Label1.Caption

End Sub