'========================================================================== ' ' VBScript: AUTHOR: Ed Wilson , MS, 7/29/2006 ' ' NAME: myFunLine.vbs ' ' COMMENT: Key concepts are listed below: '1.myFunLine function is used to underline various lengths of text '========================================================================== Const myLongString = "this is a very long string of text to test the Function." WScript.Echo myFunLine(myLongString) ' *** function is below *** Function myFunLine(strIN) myFunLine = VbCrLf & strIN & VbCrLf & String(Len(strIN),"_") End Function