Public Function GetShortString(ByVal Str As String, Optional ByVal Lenght As Integer = 3, _
Optional ByVal Separator As String = "...") As String
If Lenght < 1 Then Lenght = 1
If Len(Str) - Lenght < Lenght + 1 Then
GetShortString = Str
Else
GetShortString = Left$(Str, Lenght) & Separator & Right$(Str, Lenght)
End If
End Function