VBScript / ASP String Padding

Function PadString(strval, delim, length, side)
 Dim tmp : tmp = Trim(strval)
 Select Case Ucase(Left(side,1))
  Case "L":
   Do While Len(tmp) < length
    tmp = delim & tmp
   Loop
  Case "R":
   Do While Len(tmp) < length
    tmp = tmp & delim
   Loop
 End Select
 PadString = tmp
End Function