VBA.UCase is working while UCase is not working in Excel VBA (Office 2013)

Question

I have a Excel VBA macro program that using the UCase function

Dim Source
Dim FileName

Source = "X:\\Temp\\"
FileName = Dir(Source, vbReadOnly)
Filenam