在使用UBound和ReDim結合時，通常是用來重新定義一個數組的大小。UBound函數用于確定數組的上限，而Redim語句用于重新定義數組的大小。以下是一個示例代碼：
Dim arr(4) As Integer
Dim i As Integer
For i = 0 To UBound(arr)
arr(i) = i
Next i
ReDim Preserve arr(9)
For i = 5 To UBound(arr)
arr(i) = i
Next i
For i = 0 To UBound(arr)
Debug.Print arr(i)
Next i
在這個示例中，首先定義了一個包含5個元素的整數數組arr，并對其進行賦值。然后使用ReDim語句將數組大小重新定義為10個元素，并使用Preserve參數保留數組的已有數據。最后再次遍歷數組并輸出其值。
