Public Function FixLength_String(ByVal sText As String, ByVal nLen As Integer) _
  As String
 
  If Len(sText) < nLen Then
    sText = sText & Space$(nLen - Len(sText))
  Else
    sText = Left$(sText, nLen - 3) & "..."
  End If
 
  FixLength_String = sText
End Function