Visual Basic - Ficheros Ini

Tengo esta funcion declarada:

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
ByVal lpDefault As String, ByVal lpReturnedString As String, _
ByVal nSize As Long, ByVal lpFileName As String) As Long

Luego tengo una función que me debería devolver un valor y siempre me
devuelve 0, que hago mal, escribir en el
fichero Ini, escribo, pero leer no:

Public Function LeerSeccionClaveValor(ByVal lpFileName As String, ByVal
lpAppName As String, _
ByVal lpKeyName As String) As String
Dim sRetVal, lpDefault, ValorDev As String
lpDefault = " "
ValorDev = GetPrivateProfileString(lpFileName, lpKeyName, lpDefault,
sRetVal, Len(sRetVal), lpFileName)
If ValorDev = 0 Then
LeerSeccionClaveValor = lpDefault
Else
LeerSeccionClaveValor = Trim(sRetVal)
End If
End Function

Ya he provado a declarar lpKeyName como string y sigue fallando