problème de format sur VBA

Function VerifYYYY_MM(s As String) As Boolean
    ' // Vérification du format YYYY_MM
    Dim c As String
    Dim i As Integer
 
    VerifDate = False
 
    ' // D'abord, on vérifie qu'on a le format 9999_99
    For i = 1 To 7
        c = Mid(s & "XXXXXXX", i, 1)
        Select Case i
            Case 1, 2, 3, 4, 6, 7: If c < "0" Or c > "9" Then Exit Function
            Case 5: If c <> "_" Then Exit Function
        End Select
    Next
 
    ' // Puis on vérifie que la première partie est une année comprise entre 2000 et 2008
    i = CInt(Mid(s, 1, 4))
    If 2000 > i Or i > 2008 Then Exit Function
 
    ' // Et que la seconde est un mois.
    i = CInt(Mid(s, 6, 2))
    If 0 > i Or i > 12 Then Exit Function
 
    VerifDate = True
End Function