Если условие не выполнено, но код исполняется в любом случае

Question

У меня есть небольшой вызов с помощью этого кода ниже. Условие в условии If-не выполняется, но код всегда запускается. Кто-нибудь понял, что я могу с этим поделать? (Я уже пробовал обходить с помощью If Not Statement, но это тоже не сработает).

Это должно быть небольшим отслежой рабочего времени для моего обучения и/или работы, которую я делаю в свое свободное время.

Option Explicit 
Dim Timestamp As Date 
Dim myProject As String 
Dim myWTI As Integer 
Dim myPayment As String 
Dim myPaymentDetail As String 
Dim i As Integer 
Public Sub StartTime() 

Application.ScreenUpdating = False 

myProject = [cell_Project] 
myWTI = [cell_WorktimeInterval] 
myPayment = [cell_Payment] 
myPaymentDetail = [cell_Paymentdetail] 

If myWTI Or myProject = Empty Then 
    MsgBox "No Project and/or WTI chosen.", vbCritical, "Error: No Project/WTI" 
    Exit Sub 
Else (rest of the code - this runs perfectly fine without this If-clause) 

Answer 1

В VBA, вы не можете писать что-то вроде

If myWTI Or myProject = Empty Then 

Это не имеет никакого смысла. Вам нужно что-то вроде этого:

If myWTI = 0 Or myProject = "" Then 

Также обратите внимание, что MyInt объявлен как Integer и MyProject объявлен как String. Поэтому они не могут быть «пустыми» или «пустыми», им всегда нужно назначить значение, например 0 или «».