Public Const PAD_LEFT As Int = 1
Public Const PAD_RIGHT As Int = 2
Public Sub PadStr(Text As String, Position As Int, NumOfExtraChars As Int, ExtraChar As String) As String
Dim Result As String
Dim sb As StringBuilder
sb.Initialize
For i = 1 To NumOfExtraChars
sb.Append(ExtraChar)
Next
If Position = PAD_LEFT Then
Result = sb.ToString & Text
Else If Position = PAD_RIGHT Then
Result = Text & sb.ToString
End If
Return Result
End Sub