Private Sub CommandButton1_Click()

    Dim 力格 As String
    
    力格 = Range("E2").Value

    With Label1
        .Caption = Left(力格, InStr(1, 力格, vbLf) - 1)
        .TextAlign = fmTextAlignCenter
        With .Font
            .Size = 14
            .Bold = True
        End With
    End With
        
    With Label2
        .Caption = Mid(力格, InStr(1, 力格, vbLf) + 1)
        .TextAlign = fmTextAlignCenter
        .Font.Size = 10
        .ForeColor = RGB(0, 112, 192)
    End With

End Sub