Text formating/justification

Sub justify(text As String, len As Int, kind As String, fill As String) As String

'text = your text that you want justified
'len = over how many characters is text to be justified
'kind = l,r or c for left, right or center
'fill = wick character to fill the rest of the len (often " ")
'text and fill will be truncated if too long

   Dim result As String
   Dim freechar As Int
   Dim before As Int
   Dim after As Int
   
   'truncate the text if too long
   If text.Length > len Then
      text = text.SubString2(0,len-1)
   End If
   
   'truncate the fill if too long, take only the first character
   If fill.Length > 1 Then
      fill = text.SubString2(0,1)
   End If
   
   ' Characters to be filled
   freechar = len - text.Length
   
   Select kind
   
      ' center
      Case "c"
         before = Round(freechar/2)
         after = freechar - before
         
      ' left   
      Case "l"
         before = 0
         after = freechar
      
      ' right   
      Case "r"
         before = freechar
         after = 0
      
      Case Else
         Log("Invalid kind: " & kind & " (must be l,r or c)")
         ' this will return the original string
         before = 0
         after = 0
   End Select
      
   ' before
   For i = 1 To before
      result = result & fill
   Next
   
   ' the text in question
   result = result & text
   
   ' after
   For i = 1 To after
      result = result & fill
   Next
      
      
   Return result
      
End Sub