fold = 72
If (WScript.Arguments.Count = 1) Then
 If IsNumeric(Wscript.Arguments (0)) Then
   fold = Wscript.Arguments (0)
   End If
 End If
WScript.Echo "Folding clipboard at column " & fold
' Use IE to retrieve clipboard data
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
strValue = objIE.document.parentwindow.clipboardData.GetData("text")
OutStr = ""
' Respect any existing line breaks
splitStr = Split(strValue, vbCrLf)
For Each str in splitStr
  For i = 1 to Len(str) step fold
      OutStr = OutStr & MID(str, i, fold) & vbCrLF
      Next
  Next
' stuff it back in the clipboard
objIE.document.parentwindow.clipboardData.SetData "text", OutStr
objIE.Quit