'///////////////////////////////////////////
' Pad text with a leading character
'//////////////////////////////////////////

Function PadText(strText,iLen,strChar)

If Len(strText) >= iLen Then 
	strText=strText
Else
  
	Do Until Len(strText)=iLen
		strText=strChar & strText
	Loop
	
End If

PadText=strText

End Function