AllignText

Public Function vAutoAlign(strText As String, Optional vAlign As Integer = 0, Optional vMaxLength As Long = 92) As String
Dim sLen As Long
sLen = Len(strText)
If sLen >= Val(vMaxLength) Then
vAutoAlign = strText
Exit Function
End If
If vAlign <= 0 Then 'Allineamento al centro
vAutoAlign = String((Val(vMaxLength) - sLen) / 2, " ") & strText
ElseIf vAlign >= 1 Then 'Allineamento a destra
vAutoAlign = String(Val(vMaxLength) - sLen, " ") & strText
End If
End Function