VBScriptで、右寄せ(左埋め)、LPad()、PadLeft()関数は？

OracleにはLPAD()、.NETには、PadLeft()がありますが、VBScript、VB6、VBAでは？

Function LPad(s,n,c)
Dim m
m=n-Len(s)
If m<0 Then m=0
LPad=String(m,c) & s
End Function