How to Buffer a Variable??

[MartinLiss]

I don't know if this works for your API, but it works for GetPrivateProfileString

Dim sBuffer as String
Dim sResult as String
Dim nDummy as Integer

sBuffer = Space$(99)
nDummy = GetClassName(hWnd, sBuffer, 25)
sResult = Left$(sBuffer, nDummy)