Date Format

[Cinema]

Hi,

I want to convert my date into the following format: from dd.01.2018 to --> January 2018

Here is the code

Dim strFormatted As String
Dim Date1 As Date

Date1 =Worksheets("Table1").Cells(1,1).Value       ' here is the date given as follows dd.01.2018

strFormatted = Format(Expression:=Date1, Format:="mmm-yy")

This code returns strFormatted as dd.mmm. I dont understand why?