VB6 padleft padright

Public Function PadLeft(ByVal s As String, ByVal i As Integer, ByVal c As String)
    If i > LenB(s) Then
        PadLeft = String(i - LenB(StrConv(s, vbFromUnicode)), c) & s
    Else
        PadLeft = s
    End If
End Function
Public Function PadRight(ByVal s As String, ByVal i As Integer, ByVal c As String)
    If i > LenB(s) Then
        PadRight = s & String(i - LenB(StrConv(s, vbFromUnicode)), c)
    Else
        PadRight = s
    End If
End Function

VB6 padleft padright

原文：http://www.cnblogs.com/lbnnbs/p/4785043.html