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