I just tested the following in 64-bit and it works.

First, save this to a .reg file and change MyAppName to the name of your application. Double-click the file to apply to the registry.

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EventLog\Application\MyAppName]
"EventMessageFile"="%SystemRoot%\\System32\\wshext.dll"
"TypesSupported"=dword:0000001f

Then add the following external function declarations to an object:

Function longptr RegisterEventSource ( &
	longptr lpUNCServerName, &
	string lpSourceName &
	) Library "advapi32.dll" Alias For "RegisterEventSourceW"

Function boolean ReportEvent ( &
	longptr hEventLog, &
	uint wType, &
	uint wCategory, &
	ulong dwEventID, &
	longptr lpUserSid, &
	uint wNumStrings, &
	ulong dwDataSize, &
	string lpStrings[], &
	longptr lpRawData &
	) Library "advapi32.dll" Alias For "ReportEventW"

Function boolean DeregisterEventSource ( &
	longptr hEventLog &
	) Library "advapi32.dll"

Then add this function to the object (change MyAppName to match the registry entry above):

public subroutine writetoeventlog (icon eventtype, readonly string messagetext);// -----------------------------------------------------------------------------
// SCRIPT:     WriteToEventLog
//
// PURPOSE:    This function writes a message to the event log.
//
// DATE        PROG/ID		DESCRIPTION OF CHANGE / REASON
// ----------  --------		-----------------------------------------------------
// 03/23/2024	RolandS		Initial coding
// -----------------------------------------------------------------------------

Constant UInt EVENTLOG_SUCCESS          = 0 // Success event
Constant UInt EVENTLOG_ERROR_TYPE       = 1 // Error event
Constant UInt EVENTLOG_WARNING_TYPE     = 2 // Warning event
Constant UInt EVENTLOG_INFORMATION_TYPE	= 4 // Information event
Constant LongPtr NULL = 0

LongPtr llp_hEventLog
String ls_MessageText[]
UInt lui_EventType

choose case EventType
	case Information!
		lui_EventType = EVENTLOG_INFORMATION_TYPE
	case StopSign!
		lui_EventType = EVENTLOG_ERROR_TYPE
	case Exclamation!
		lui_EventType = EVENTLOG_WARNING_TYPE
	case Question!
		lui_EventType = EVENTLOG_ERROR_TYPE
	case None!
		lui_EventType = EVENTLOG_INFORMATION_TYPE
end choose

ls_MessageText[1] = MessageText

llp_hEventLog = RegisterEventSource(NULL, "MyAppName")
If Not llp_hEventLog = NULL Then
	ReportEvent(llp_hEventLog, lui_EventType, &
			0, 0, 0, 1, 0, ls_MessageText, 0)
	DeregisterEventSource(llp_hEventLog)
End If

end subroutine

Now you can call it like this:

WriteToEventLog(StopSign!, "Processing failed!")