Не срабатывает вторая часть условия

Me.Requery
If Len(Me.[ДатаН] & "") = 0 Then MsgBox "Укажите начальную дату": Exit Sub
If Len(Me.[ДатаК] & "") = 0 Then  MsgBox "Укажите конечную дату ": Exit Sub
Dim XL As Object
Dim XLS As Object
Dim a(1 to 2) as String
a(1)="ОК1": a(2)="ПЭО"
DoCmd.OutputTo acOutputQuery, a(Me.Поле9), acFormatXLS, "d:\Время\Test55.xls"
Set XL = CreateObject("Excel.Application")
XL.Visible = True
Set XLS = XL.Workbooks.Open("d:\Время\Test55.xls")
Set XL = Nothing
Set XLS = Nothing
End Sub

Dim strFileName As String'я бы задавал динамично...
Me.Requery
If Len(Nz(Me.[ДатаН],vbNullString)) = 0 Then MsgBox "Укажите начальную дату": Exit Sub
If Len(Nz(Me.[ДатаК], vbNullString)) = 0 Then  MsgBox "Укажите конечную дату ": Exit Sub
strFileName= "d:\Время\Test55.xls"
Select Case  Me.Поле9
  Case 1,2
    DoCmd.OutputTo acOutputQuery, IIF(Me.Поле9=1, "ОК1","ПЭО"), acFormatXLS, strFileName
    Application.FollowHyperlink strFileName
  Case Else
    MsgBox "Что то не то в поле Поле9"
end select

Private Sub Поле9_LostFocus()
    If Nz(Me.Поле9,"") = "" Then Cancel = True
End Sub

Public Function IsDigit(KeyAscii As Integer) As Boolean
' 0 - 48; 9 - 57; Num0 - 96; Num9 - 105
 
 If (KeyAscii >= 49 And KeyAscii <= 50) Then
     IsDigit = True
  Else
     IsDigit = False
 End If
End Function

Private Sub Поле9_KeyPress(KeyAscii As Integer)
    If Not IsDigit(KeyAscii) Then  KeyAscii = 0
Exit Sub