Format function not working in excel vba

Question

I am new to vba. i am trying to convert current date format to mm/dd/yyyy. I used format function to achieve it. Still i am getting as dd-mm-yyyy format. Dim current as Date

currentDate = Format(Now, "MM/dd/yyyy")

Thanks in advance.

Answer 1

This is because Format() returns a String:

Sub NeedADate()
    Dim s As String
    s = Format(Now(), "mm/dd/yyyy")
    MsgBox s
End Sub

Answer 2

First paste the desired date in a cell, then format the cell layout.

Cells(1,1).Value = Now()
Cells(1,1).Numberformat = "mm/dd/yyyy"