'==========================================================================
'
' 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