Function strPad(strSource, destLength, padChar, L_or_R)
Dim srcLength
srcLength = Len(strSource)
If(srcLength >= destLength) Then
strPad = strSource
Else
If(L_or_R = 0) Then
strPad = String(destLength - srcLength, padChar) & strSource
Else
strPad = strSource & String(destLength - srcLength)
End If
End If
End Function