That's perfect!
Mervyn
"Executor" <wouter.magre@sogeti.nl> wrote in message
news:1141733330.553804.224980@z34g2000cwc.googlegroups.com...
> Hi Mervin,
>
> I have created a common function:
>
> Public Function RightPad(ByVal sOriginal As String, ByVal iLength As
> Integer) As String
> If Len(sOriginal) < iLength Then
> RightPad = sOriginal & Space(iLength - Len(sOriginal))
> Else
> RightPad = Left(sOriginal, iLength)
> End If
> End Function
>
> It takes 2 parameters:
> 1) The string
> 2) The length it must have.
>
> If it is shorter some spaces will be added at the end.
> If if is to long it will be truncated at the given length.
>
> HTH.
>
>
> Executor
>