Try the approach that is shown in this example:
Dim folder1 As String = "C:\users\dave"
Dim folder2 As String = "C:\something\else"
Dim u = Path.GetDirectoryName(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile))
If Path.GetDirectoryName(folder1).Equals(u, StringComparison.CurrentCultureIgnoreCase) Then
Dim name = Path.GetFileName(folder1)
Console.WriteLine(name)
End If
If Path.GetDirectoryName(folder2).Equals(u, StringComparison.CurrentCultureIgnoreCase) Then
Dim name = Path.GetFileName(folder2)
Console.WriteLine(name)
End If