Public Function AlignLeftString(N, s)
  If Len(s) >= N Then
    AlignLeftString = Mid$(s, 1, N)
  Else
    AlignLeftString = s & String(N - Len(s), " ")
  End If
End Function

Public Function AlignRightString(N, s)
  If Len(s) >= N Then
    AlignRightString = Mid$(s, 1, N)
  Else
    AlignRightString = String(N - Len(s), " ") & s
  End If
End Function

Public Function AlignCenterString(N As Integer, s As String)
Dim Razlika As Integer
  Razlika = N - Len(s)
  If Razlika > 0 Then
    AlignCenterString = String(Int(Razlika / 2), " ") & s & String(Int(Razlika / 2), " ")
  Else
   AlignCenterString = Mid$(s, 1, N)
  End If
End Function