VBA在MsgBox中更改文本颜色

Sub ChangeTextColorInMsgBox()
    Dim message As String
    Dim colorCode As String
    
    message = "这是一条消息。" & vbCrLf & "这是第二行。" & vbNewLine & "这是第三行。"
    colorCode = "&HFF0000" '红色
    
    MsgBox "{'" & message & "'}", vbInformation, "消息框标题", , CreateColor(colorCode)
End Sub

Function CreateColor(colorCode As String) As Long
    Dim red As Long
    Dim green As Long
    Dim blue As Long
    
    red = Val("&H" & Mid(colorCode, 3, 2))
    green = Val("&H" & Mid(colorCode, 5, 2))
    blue = Val("&H" & Mid(colorCode, 7, 2))
    
    CreateColor = RGB(red, green, blue)
End Function