[Bug 51503] New: vbscript parser error in expression with # char

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=51503

Bug ID: 51503
           Summary: vbscript parser error in expression with # char
           Product: Wine
           Version: 6.12
          Hardware: x86-64
                OS: Linux
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: vbscript
          Assignee: [e-mail]
          Reporter: [e-mail]
      Distribution: ---

wine-staging 6.12
I'm using custom forms in Outlook 2007 with VB scripts inside them. Several
forms are not displaying and outlook shows 'error starting expression
processing service' warning message. 
There is some output in console about VB script problems:
0100:fixme:vbscript:parse_next_token Unhandled char # in L"#1/1/4501#) and
_\r\n                 
Item.UserProperties("\041e\041f\0440\043e\0441\043c\043e\0442\0440\041a\043e\043c\0443").Value
then\r\n\t\tItem.UserProperties("\041e\041f\0440\043e\0441\043c\043e\0442\0440\041a\043e\043c\0443\0414\0430\0442\0430").Value
= Date()\r\n\t   end if\r"...
0100:fixme:vbscript:parser_error L"#1/1/4501#) and _\r\n                 
Item.UserProperties("\041e\041f\0440\043e\0441\043c\043e\0442\0440\041a\043e\043c\0443").Value
then\r\n\t\tItem.UserProperties("\041e\041f\0440\043e\0441\043c\043e\0442\0440\041a\043e\043c\0443\0414\0430\0442\0430").Value
= Date()\r\n\t   end if\r"...: "syntax error"

There is my full expression in script where error occurs:
Sub Item_CustomPropertyChange(ByVal Name)
    if Name="ОПросмотрКому" then
               if (Item.UserProperties("ОПросмотрКомуДата").Value=#1/1/4501#)
and _
                  Item.UserProperties("ОПросмотрКому").Value then
        Item.UserProperties("ОПросмотрКомуДата").Value = Date()
       end if
            elseif Name="ОПросмотрСекрет" then
               if (Item.UserProperties("ОПросмотрСекретДата").Value=#1/1/4501#)
and _
                  Item.UserProperties("ОПросмотрСекрет").Value then
        Item.UserProperties("ОПросмотрСекретДата").Value = Date()
       end if
            elseif (Left(Name,3)="Рез")  then 
       Call RecountPercent()
    end if

End Sub

As I suppose there may be an error while parsing DateTime literal #1/1/4501# or
combination of "=#" when there is no space between. Script executes in Windows.