为什么在使用Excel VBA时日期未以正确的格式粘贴

Question

场景

我有一些标签显示的日期格式如下dd-mmm-yy

我通过调用下面的函数将这些日期粘贴到我的Excel工作表中

Public Function enterObjectsValue(uiObject As Object)

    If TypeOf uiObject Is MSForms.Label Then
         Cells(DeviceSheetRow, headerColumn).value = uiObject.Caption
    End If

End Function

我一般设置的excel单元格格式。 DeviceSheetRow和headerColumn是行号和列号变量。

问题

问题是日期值的粘贴不一致。有时，它会完全按照标签中的说明添加，例如08-Oct-18。但有时，它将粘贴为10/08/18（日期和月份相反）。计算机日期格式设置为mm-dd-yy格式。任何人都知道为什么会发生这种情况，我应该如何防止这种情况发生？