how can I get this code to work on excel where its on a 64bit machine?

[kbishop94]

When it crashes the error is highlighted on this line:

Me.Caption = VBA.UCase$([COLOR=#ff0000][B][FONT=arial black]Format[/FONT][/B][/COLOR]$(VBA.Date, "yyyy - mmmm ")) & VBA.Day(VBA.Date) _              
                   & "   (" & VBA.Date & ")"

I changed the declaration from this:

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

to this:

Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As LongPtr) As Integer

but it still crashes.

The code is from a datepicker application that I found in order to try and find something other than excels own 'DTPicker' which crashes on 64bit machines.

 

[Logit]

Ran the macro here Win 10 / 64 bit and it works.

The Caption for UserForm1 shows : 2019 - MARCH 22 (3/22/2019)