'==========================================================================
'
' VBScript:  AUTHOR: Ed Wilson , MS,  7/29/2006
'
' NAME: FunString.vbs
'
' COMMENT: Key concepts are listed below:
'1.FunString is same as intrinsic function
'2.
'3. 
'==========================================================================
Option Explicit

WScript.Echo "Intrinsic string function",VbCrLf,string(15,"-")
WScript.Echo "User string function",VbCrLf,funString(15,"-")


' **** function below **** 
Function funString(intIN,strChar)
Dim j
	For j = 1 To intIN
		funString = funString & strChar
	Next
End Function