Næst sidste i split

Hej
xx = ListBox2.Items.Item(0)

            Dim s As String = xx
            ' Split string based on spaces
            Dim words As String() = s.Split(New Char() {"\"c})
            Dim word As String

            For Each word In words
                xgem = word

            Next

Hvis nu strengen der deles består at
c:\mappe1\mappe2\mappe3\mappe4\fil.txt
og jeg altid vil have både sidste del af strengen ( som virker )
og den næst sidste ex mappe4 her,