Unicode aware VB6 functions replacement

[xiaoyao]

Private Declare Function GetModuleFileNameW Lib "kernel32.dll" (ByVal hModule As Long, ByVal lpFilename As Long, ByVal nSize As Long) As Long

Function AppPathW() As String
Const MAX_PATH = 560&

AppPathW = Space$(MAX_PATH - 1&)
AppPathW = Left$(AppPathW, GetModuleFileNameW(0&, StrPtr(AppPathW), MAX_PATH))
AppPathW = Left(AppPathW, InStrRev(AppPathW, ""))
End Function