Imports System.IO

Public Class PathConverter
   Implements IValueConverter

   Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
      Dim Local_AsseblyName As AssemblyName = DirectCast(value, AssemblyName)
      Dim sPath As String = Local_AsseblyName.Name
      Return Path.GetFileNameWithoutExtension(sPath)
   End Function

   Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
      Throw New NotImplementedException
   End Function

End Class