Sumar dígitos de una fecha, formato string

Dim fechafin As String = "2017-05-12"
Dim sum As Integer = fechafin.Split("-").Select(Function(n) Int32.Parse(n)).Sum()