Textbox a iki farklı font da bilgi getirmek

[ikikan]

Arkadaşlar kolay gelsin aşadaki makro neden çalışmaz nerde hata yapıyorum yardımcı olursanız sevinirim.

Private Sub UserForm_Initialize()
CommandButton2.Cancel = True
TextBox2.Value = ActiveCell.Offset(0, -1)
bas = 0
bit = 0
aranan = Chr(10)

For x1 = 1 To Len(TextBox2.Value)

If Mid(TextBox2.Value, x1, 1) = aranan And bas = 0 Then
bas = x1
ElseIf Mid(TextBox2.Value, x1, 1) = aranan And bas > 0 Then
With TextBox2.Text.Characters(Start:=bas, Length:=bit + 1).Font
.Name = "Arial"
.FontStyle = "İtalik"
.Size = 7
End With
bas = 0
bit = 0
ElseIf bas > 0 Then
bit = bit + 1
End If
Next x1

End Sub