Formatting cell problem

[alex_peng]

)​

I am having an issue converting a cell in an imported xml table. The date cell in the xml table comes in as a "custom" format and is structured like a standard date format(12-Jun-20) when i click on cell if I look in the box that displays the value it shows me the date I am actually looking for (2020-06-12).
In excel if i select cell properties and change format to date it changes it correctly to the date format I am looking for (2020-06-12)
The problem is in vba. I need to extract the month "mm" and use in a later formula. Here is a snippet of my code.

IESODATMonthRaw = ws3.Range("b2").NumberFormat = "date"
Or
IESODATMonthRaw = ws3.Range("b2").NumberFormat = "yyy-mm-dd"
Both these statements return the wrong data. Gives me the following
12:00:00:AM
I have another statement later that extracts the month from it and it returns a value of 12. (which it looks like it is getting from the original data)
IESODATMonth = Month(IESODATMonthRaw)

 

[MARK858]

Can you format B2 as a number and post what it returns please.

 

[alex_peng]

43994.00​

 

[MARK858]

What does the below give you?

Sub xxx2()
Dim IESODATMonthRaw As Date, IESODATMonth As Long
IESODATMonthRaw = CLng(ws3.Range("b2"))
IESODATMonth = Month(IESODATMonthRaw)
MsgBox IESODATMonth
End Sub

 

[alex_peng]

msg gives me a 1

 

[MARK858]

A 1???

 

[alex_peng]

IESODATMonthRaw actually gives me 1900-01-01 which would return a 1.

 

[MARK858]

IESODATMonthRaw with the code that I posted will return 43994 and not a date and definitely not 1900-01-01 if you have a real date in B2.
Run the code as is and tell me what is in the message box.

 

[alex_peng]

 

[MARK858]

That isn't the code that I posted