I have a Word document with the following content:
1 2 3
Number 2 is bold.
I want to insert a text (Hello!) immediately after the number 1.
The VBA program below performs the insertion:

Sub forum()
Set X = Selection.Range
Set Y = X.Paragraphs(1)
Set Z = Y.Range
Z.Select
Selection.CopyFormat
X.Text = Left(Z, 1) & "Hello!" & Mid(Z, 2)
Z.Select
Selection.PasteFormat
End Sub

The result is:
1Hello! 2 3

Formatting is lost (no bold).
How can I keep the same effect but keep the formatting?