一個迴圈問題(編號：2421)

程式讀取inputbox輸入數值,並存入陣列中,直到輸入的數
值等於0為止,最後再計算陣列中所有數值的平均值。
這是小弟寫的不過.....有問題
Private Sub Command4_Click()
Dim x()
n = 0
r = 0
Data = InputBox("請輸入資料")
While Data ＜＞ "0"
ReDim Preserve x(n + 1)
　 x(n) = Data
　 n = n + 1
　 r = r + 1
　
　 Data = InputBox("請輸入資料")
Wend
p = x(n) / r
Print p
End Sub