How to make cell value bold along with other data

How to make only the first value bold (from D3) and the remaining normal when the values are populated in a merged cell range?

Private Sub CmbInsert_Click()
Set srng = Application.InputBox(prompt:= _
"Select A Range", Type:=8)
With srng
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.MergeCells = True
.Value = Range("D3").Value & Chr(10) & IIf(TglbDriver.Value = True, "D", " ") & " " & Range("H3").Value & " " & IIf(TglbBeamer.Value = True, "B", " ")
End With
End Sub