kontrollera personnummer som är född 06

Jag har problem med att när jag ska kontrollera en person som är född exemelvis 1906 med denna personnummers kontroll.

    Public Function isDigit(ByVal strNumber As String) As Boolean
        Dim regEx As New Regex("^(19|20)?(\d{6})-?(\d{4})$")
        If regEx.IsMatch(strNumber) Then
            strNumber = regEx.Replace(strNumber, "$2$3")
            Dim lngSum As Integer = 0
            Dim lngpos, lngTemp As Long

            For lngpos = 1 To 10
                lngTemp = CLng(Mid(strNumber, lngpos, 1)) * ((lngpos Mod 2) + 1)
                If lngTemp > 9 Then lngTemp = lngTemp - 9
                lngSum = lngSum + lngTemp
            Next
            Return (lngSum Mod 10) = 0
        Else
            Return False
        End If
    End Function