Runtime error

Hej
VB .Net
Tidligere har følgende alders funktion fungeret udmærket men nu får jeg følgende fejl:
Indekset og længden skal referere til en placering i strengen
Parameternavn: length

Kode:
  Function Age(ByVal s As String) As Integer

        Try
            Dim birthday As DateTime = DateTime.ParseExact(s.Substring(0, 6), "ddMMyy", CultureInfo.InvariantCulture)
            Dim today As DateTime = DateTime.Now
            Dim n As Integer
            If Now.Month > birthday.Month Or (Now.Month = birthday.Month And Now.Day >= birthday.Day) Then
                n = today.Year - birthday.Year
            Else
                n = today.Year - birthday.Year - 1
            End If
            n = (n + 100) Mod 100
            Return n

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Function