Pocho. Debés hacer envolventes para cada funcion. Por ejemplo:
Public Function GetWindowsDirectory() as String
dim sBuffer as string, lng as long, l as long
sBuffer=String(Max_Path,0)
'En mDeclaraciones tenés las declaraciones del API que estás usando. No deben estar en el mismo módulo que esta función
l=mDeclaraciones.GetWindowsDirectory(sBuffer,lng)
if l>max_path then
lng=l
l=GetWindowsDirectory(sBuffer,lng)
End If
GetWindowsDirectory=Left$(sBuffer,l)
End Function
Saludos Ruri