想把变量赋值进数组，遍查资料无果，寻求帮助
Sub kdgdfuzhi()
vba_asx1=asx
vba_hlz1=hlz
if vba_asx1>0 then
vba_asx=vba_asx1
end if
if vba_hlz1>0 then
vba_hlz=vba_hlz1
end if
End Sub
上面的asx和hlz是自定义函数调过来的变量，想让它在大于0时也就是把vba_asx和vba_hlz往数组里添加。
sub kdgdshuzhu()
Dim kdgdsz()
ReDim kdgdsz(100000)
ReDim Preserve kdgdsz(100000)
写到这里就不知道该怎么写了，求助，感谢。
数组上界等我把值加进去在想法解决，现在关键是不知该怎样赋值。