（VBA-PPT）Redim错误9？索引越界

Question

我不明白-我在另一个模块中有一个数组，该数组保存数据并在开始时以标准值进行初始化。

当我尝试使用daten.getWasserTemp（）时，似乎并非每次都传递一个数组。传入的Arraysize始终为5。

带有vWate（1）的行将数组抛出边界错误9。（第5行）

编辑： 数据保存在daten模块中。 当首次使用daten.reset（）方法打开幻灯片（slide30）时，它将初始化。

谢谢！

你能帮我吗？我是盲人..谢谢！

模块Logik：

Dim vTemp As Double
Dim vWate() As Double
ReDim vWate(5)
vWate = daten.getWasserTemp    
If vWate(1) <= 0 Then vTemp = 0 

模块Daten：

Dim vWasserTemp() As Double

....

Function getWasserTemp() As Double()
getWasserTemp = vWasserTemp                 
End Function

...

sub reset ()
vWasserTemp(1) = 15
vWasserTemp(2) = 14
vWasserTemp(3) = 5
vWasserTemp(4) = 4
end sub

Module Slide30：

Sub OnSlideShowPageChange()
daten.reset
End Sub