哪位高手能帮小弟我解释一上redim 和 Preserve

谁能帮我解释一下redim 和 Preserve
好像不是所有情况都可以使用 redim和preserve 。哪些情况可以使用redim哪些情况不可以，以及使用preserve的情况。谢谢各位
                                                                       
------解决方案--------------------

Sub Click(Source As Button)
	Dim arr() As String
	Redim arr(1 To 3)
	For i=1 To 3
		arr(i)=i
	Next
	For i=1 To Ubound(arr)
		Msgbox  arr(i)
	Next
	'加上和去掉Preserve 试试就知道了
	Redim Preserve arr(1 To 6) 
	Msgbox Ubound(arr)
	For i=1 To Ubound(arr)
		Msgbox arr(i)
	Next
End Sub

------解决方案--------------------