The example makes no sence since it demonstrates nothing.
Sub ExampleStatic
Static iInit As Integer
if iInit = 0 then iInit = InitVar()REM kontrolliere ob Variable schon
initialisiert wurde
iInit = iInit + 1
MsgBox iInit,0,"Die Antwort lautet"
End Sub
REM Funktione zur initialisierung der statischen Variablen
Function InitVar() As Integer
InitVar = 40 REM ein Wert zur Initialisierung
End Function
The static var should be declared in the called function, not in the calling one.
Consider this:
Sub ExampleStatic
Dim iCount as Integer, iResult as Integer
For iCount = 0 to 2
	iResult = InitVar()
Next iCount
MsgBox iResult,0,"Die Antwort lautet"
End Sub

REM Funktion zur initialisierung der statischen Variablen mit einem Minimalwert
Function InitVar() As Integer
Static iInit As Integer
Const iMinimum as Integer = 40 REM gebe diesen Wert als Minimum der Funktion zurück
if iInit = 0 then   REM kontrolliere ob Variable schon initialisiert wurde
	iInit = iMinimum
else
	iInit = iInit + 1
end if
InitVar = iInit
End function