Dim str As String = _
"D:\ACAD_2012_Support\2012_Bloecke\3_Möbelbeschläge\TBHÄF-GLTS-105°CRP_D.wmf"
 
Dim parts() As String = str.Split("\"c)
Dim strende_version1 As String = parts(parts.GetUpperBound(0))
 
'Falls Kappzeichen enthalten (Contains):
Dim strende_version2 As String = str.Substring(str.LastIndexOf("\"c) + 1)