QTP Script for adding NewLine in MsgBox using Vb Script

Dim ctrlLink, objLink

Set ctrlLink = Browser("Gmail: Email from Google").Page("Gmail: Email from Google").Link("Create an account")
Set objLink = ctrlLink.Object

sColor = objLink.currentStyle.color
sBackgrColor = objLink.currentStyle.backgroundColor
sFontSize = objLink.currentStyle.fontSize
sFontStyle = objLink.currentStyle.fontStyle
sFontFamily = objLink.currentStyle.fontFamily
sFontWeight = objLink.currentStyle.fontWeight

MsgBox "sColor :"&sColor &vbNewLine& "sBackgrColor :"&sBackgrColor &vbNewLine& "sFontSize :"&sFontSize &vbNewLine& "sFontStyle :"&sFontStyle &vbNewLine& "sFontFamily :"&sFontFamily &vbNewLine& "sFontWeight :"&sFontWeight 

Output of QTP newline:

I think it is bit simpler than we thought. :-)