vba - Compile Error type mismatch QPTools Excel

Question

 Function MyDocumentsDir()
Dim sBuffer As String
sBuffer = Space$(260)
If SHGetFolderPath(&H0, &H5, -1, &H0, sBuffer) = 0 Then
    MyDocumentsDir = left$(sBuffer, lstrlenW(StrPtr(sBuffer)))
End If

End Function

I am getting compile error type mismatch. please help

Answer 1

等待大神答复