Imports System
Module Program
Sub Main()
Dim path As String = "C:\MyFolder\Project"
Dim trimmedPath As String = path.TrimEnd(System.IO.Path.DirectorySeparatorChar, System.IO.Path.AltDirectorySeparatorChar)
Console.WriteLine(trimmedPath)
End Sub
End Module
' run:
'
' C:\MyFolder\Project
'