Fehlermeldung beim Aufruf einer Beispieldatei

Function GetProfileString Lib "kernel32" Alias " GetProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Sub Aufruf()
Dim Hintergrund$
Hintergrund = GetString("Desktop", "Wallpaper")
MsgBox Hintergrund
End Sub



Function GetString(section$, key$) As String
Dim KeyValue$
Dim Characters As Long
KeyValue$ = String$(256, 0)
Characters = GetProfileString(section$, key$, "", KeyValue$, 256)
If Characters > 1 Then
KeyValue$ = Left$(KeyValue$, Characters)
End If
GetString = KeyValue$
End Function


Wenn ich das Programm über die Schaltfäche aufrufe, wird immr folgende Fehlermeldung ausgegeben;

Laufzeitfehler 453:

Kann Einsprungpunkt GetProfileStringA in der Dll Kernel32 nicht finden. Was bedeutet diese Fehlermeldung?

Vielen Dank für die Hilfe!

Gruß

Thomas