Dim strCompanyInfo
strCompanyInfo = " Your company here" + chr(13)
strCompanyInfo = strCompanyInfo + " address here" + chr(13)
strCompanyInfo = strCompanyInfo + " contwact info here" + chr(13)
strCompanyInfo = strCompanyInfo + "put disclaimer here" + chr(13)
msgbox(strCompanyInfo)