CenterString
Function Center_String (ByVal strString As String, _ ByVal intLineLength As Integer) As String Center_String = Space$((intLineLength - Len(strString)) / 2) & _ strString & Space$((intLineLength - Len(strString)) / 2) End Function
Function Center_String (ByVal strString As String, _
ByVal intLineLength As Integer) As String
Center_String = Space$((intLineLength - Len(strString)) / 2) & _
strString & Space$((intLineLength - Len(strString)) / 2)
End Function
(centerstring.html)- by Paolo Puglisi - Modifica del 25/3/2019