VBA to underline and bold

How would I alter this code to also underline as well.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s1 As String, s2 As String
 
If Target.Address <> "$H$11" Then Exit Sub

Range("C11").Font.Bold = False

s1 = Range("G11")
Range("C11") = s1 & Range("J11")

Range("C11").Characters(InStr(1, Range("C11"), s1, vbTextCompare), Len(s1)).Font.Bold = True

End Sub