Visual Basic - Cambiar tipo de letra

hola estoy haciendo un mini word , cree un fichero en el que le puse la opcion fuente le puse el siquiente codigo pero no me corre me marca errorno se por que agradesere si me pueden ayudar , este es el codigo:

Private Fuente As New StdFont
Private Sub fue_Click()
On Error GoTo RutinaDeError
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
CommonDialog1.CancelError = True
CommonDialog1.ShowFont
With Fuente
.Name = CommonDialog1.FontName
.Bold = CommonDialog1.FontBold
.Italic = CommonDialog1.FontItalic
.Strikethrough = CommonDialog1.FontStrikethru
.Size = CommonDialog1.FontSize
End With
Set Text1.Font = Fuente
Text1.Cls
Call formatoTexto(Text1.Text)
Exit Sub
RutinaDeError:
If Err.Number = cdlCancel Then Exit Sub
MsgBox Err.Description

Creo que tienes que dimensionar la variable Fuente como algo, no se si como objeto o algo asi, pero yo que tu resumiria algo asi mejor.

Dim fuente as Textbox


Set Text1.Font = Fuente.Font

Text1.Cls

Call formatoTexto(Text1.Text)

Exit Sub
RutinaDeError:
If Err.Number = cdlCancel Then Exit Sub
MsgBox Err.Description