Solved
You could use "ReDim" to redimension variable "Section".
Sub ComboBoxEvent_Start()
Material= Worksheet.GetValue("Material")
If Material= "Cast Iron" Then
Dim Section(2)
Section(0) = "1"
Section(1) = "2"
Section(2) = "3"
ElseIf Material= "Steel" Then
ReDim Section(2)
Section(0) = "A"
Section(1) = "B"
Section(2) = "C"
Else
ReDim Section(4)
Section(0) = "A1"
Section(1) = "B2"
Section(2) = "C3"
Section(3) = "D3"
Section(4) = "E3"
End If
ComboBox.List() = Section
End Sub
Enter your E-mail address. We'll send you an e-mail with instructions to reset your password.

