Excel 2016 64位VBA：为什么在子结尾处重置全局变量？

Question

我需要将日期存储为全局变量。我以为我正在这样做，但是手表显示它在子接头结束后会复位。我看了无数的全局变量文章和对问题的回答，似乎没有任何效果。

那么，如何在我的VBA代码中阻止这种情况的发生，因为我需要在以后的子程序中调用该变量？

Option Explicit

Public strDate As Variant

Sub SelectDate()
    strDate = InputBox("Select Report Date (mm/dd/yy)", "Report Date", Format(Now() - 1, "mm/dd/yy"))

    If IsDate(strDate) Then
        strDate = Format(CDate(strDate), "mm/dd/yy")
    Else
        MsgBox "Valid Date Format Required"
    End If
End Sub