在VBA中，可以通过DateDiff函数来计算两个日期之间的天数。具体的代码如下：
Sub CalculateDays()
Dim startDate As Date
Dim endDate As Date
Dim days As Long
startDate = #1/1/2022# ' 设置起始日期
endDate = #1/10/2022# ' 设置结束日期
' 计算天数差
days = DateDiff("d", startDate, endDate)
MsgBox "两个日期之间的天数为：" & days
End Sub
在上述代码中，我们首先定义了两个日期变量startDate和endDate，分别表示起始日期和结束日期。然后使用DateDiff函数计算天数差，其中第一个参数是计算的单位，这里使用"d"表示天数；第二个参数是起始日期；第三个参数是结束日期。最后通过MsgBox函数显示计算结果。
你可以根据自己的实际需求修改起始日期和结束日期的值。
