Code Snippet

Imports System.Windows.Data
Public Class StringOverLengthConvert
    Implements IValueConverter

    Public Function Convert(ByVal value As Object, ByVal targetType As System.Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements System.Windows.Data.IValueConverter.Convert

        If Not IsNothing(value) Then
            If value.ToString().Length > 8 Then 
                value = value.ToString().Substring(0, 7) & ".."
            End If
        End If

        Return value
    End Function

    Public Function ConvertBack(ByVal value As Object, ByVal targetType As System.Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements System.Windows.Data.IValueConverter.ConvertBack
        Return ""
    End Function
End Class