Private Function PadL(ByVal eExpression As String, _
ByVal nResultSize As Long, _
Optional ByVal cPadCharacter As String = " ") As String
Dim PadLen As Long
PadLen = nResultSize - Len(eExpression)
If PadLen > 0 Then
PadL = String(PadLen, cPadCharacter) & eExpression
Else
PadL = Left(eExpression, nResultSize)
End If
End Function
Plamen Ivanov
MCSD .NET Early Achiever and MCAD .NET Charter Member (VB .NET/SQL Server 2000)
MCSD (VB 6.0/SQL Server 2000)
VB (.NET) - what other language do you need in the whole Universe?...