Formatting a piece of the text in the formula box

I want to use VBA to insert text into a cell. The problem is that I want the inserted text to consist out of one character formatted in calibri, a space bar and then another character (D) formatted Wingdings 3 to make it appear as a double arrow. Is this possible?

you need to change a Target range and insert only first character

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("a1")) Is Nothing Then

        Application.EnableEvents = False
        Target.Value = Target.Value & "_D"
         Target.Characters(Start:=1, Length:=2).Font.Name = "Calibri"
         Target.Characters(Start:=3, Length:=1).Font.Name = "Wingdings 3"
         
        Application.EnableEvents = True
    End If
End Sub

Thank you both! The only issue is that the first value can be 1 or 10000. So basically the number of characters where the wingdings part starts is variable.

It is always the last character so the code works wonderfully. Thanks again!