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$