在VBA中声明值的Excel IF函数

我有一个文件，我需要通过一个IF函数来决定结果（我需要用VBA来输入公式）。我的代码如下所示，但是，我无法完成它

Dim WB1, ATB, Prod As Workbook
Dim Ws1, Ws2 As Worksheet
Dim Cnt1, Cnt2 As Long
Dim i, j As Long
Dim Hname As String
Dim Bdate As Variant


Set WB1 = ThisWorkbook
Set Ws1 = WB1.Sheets("Home")
Set Ws2 = WB1.Sheets("Control")
Set Ws3 = WB1.Sheets("RAW DATA")

    Bdate = InputBox("Input date in mm/dd/yyyy format")
    Bdate = Format(Bdate, "mm/dd/yyyy")
Ws3.Range("AF2").FormulaR1C1 = "=IF(RC[-22]<DATEVALUE(""07/01/2019""),""<07/01/2019"","">=07/01/2019"")"

Dim WB1、ATB、产品作为工作簿
将Ws1、Ws2标注为工作表
尺寸为Cnt1，Cnt2与长度相同
暗i，j等于长
把我当作绳子
Dim Bdate作为变体
设置WB1=ThisWorkbook
设置Ws1=WB1.Sheets（“主页”）
设置Ws2=WB1.Sheets（“控制”）
设置Ws3=WB1.Sheets（“原始数据”）
b日期=输入框（“以mm/dd/yyyy格式输入日期”）
b日期=格式（b日期，“mm/dd/yyyy”）
Ws3.Range（“AF2”）.FormulaR1C1=“=如果（RC[-22]使用&符号连接，即类似这样的东西…”Ws3.Range（“AF2”）.FormulaR1C1=“=如果（RC[-22]它工作得很好！！感谢Bilal.i