Public Function GetShortString(ByVal Str As String, ByVal Lenght As Integer, Optional ByVal Separator As String = "...") As String
If Str.Length - Lenght < Lenght + 1 Then Return Str
Return Str.Substring(0, Lenght) & Separator & Str.Substring(Str.Length - Lenght)
End Function