U003 UNICODE と LMBCS の文字列は BYVAL で宣言していなければいけません

Declare ステートメントに文字列引数と Unicode か LMBCS キーワードが含まれていますが、ByVal キーワードが含まれていません。文字列引数を渡すには ByVal キーワードが必要です。以下に例を示します。

Declare Function MyFunc Lib "c:¥USER.DLLl" (X As LMBCS String) As Long
' Illegal

Include the ByVal keyword in the Declare statement:
Declare Function MyFunc Lib "c:¥USER.DLLl" (ByVal X As LMBCS String) As Long