Не пойму в чем ошибка

Option Explicit
 
Private Sub MDIForm_Load()
Me.Caption = "Моделирование теплоотдачи"
End Sub
 
Private Sub MDIForm_Unload(Cancel As Integer)
Dim k As Integer
For k = Forms.Count - 1 To 0 Step -1
Unload Forms(k)
Next
End Sub
 
Private Sub mnuFileCreate_Click()
frmMetalData.Show vbModal
End Sub
 
Private Sub mnuFileExit_Click()
Unload Me
End Sub

Option Explicit
Private MetalsParam() As Double
 
Private Sub Form_Load()
Me.Caption = "Характеристики металла"
LoadControls
LoadMetalsParam
Me.Left = (frmHeatMDI.ScaleWidth - Me.Width) / 2
Me.Top = (frmHeatMDI.ScaleHeight - Me.Height) / 2
End Sub
 
Private Sub cboMetalsList_Click()
MetalIndex = cboMetalsList.ListIndex
cboMetalsList.TopIndex = MetalIndex
Me.Caption = cboMetalsList.Text
SelectMetal MetalIndex
End Sub
 
Private Sub cmdOK_Click()
    If MetalIndex = 0 Then
        MsgBox "Необходимо выбрать металл!", vbExclamation, "Контроль ввода"
        cboMetalsList.SetFocus
    Exit Sub
    Else
        SpcfRes = CDbl(txtlnputData(0))
        ResTmp = CDbl(txtlnputData(1))
        LinTmp = CDbl(txtlnputData(2))
        MeltTmp = CDbl(txtlnputData(3))
        SpcfHeat = CDbl(txtlnputData(4))
        RadEps = CDbl(txtlnputData(5))
        Me.Hide
        frmEnvData.Show vbModal
    End If
End Sub
 
Private Sub cmdCancel_Click()
Me.Hide
End Sub
 
Private Sub LoadControls()
Dim lblCaption(0 To 5) As String
lblInputData(0) = "Удельная теплоемкость"
lblInputData(1) = "Температурный коэффициент сопротивления"
lblInputData(2) = "Коэффициент линейного расширения"
lblInputData(3) = "Температура плавления"
lblInputData(4) = "Удельная теплоемкость"
lblInputData(5) = "Излучательная способность"
Dim k As Long, x As Long, y As Long, lblLeft As Long
x = txtInputData(0).Width
y = txtInputData(0).Height
txtInputData(0).Left = Me.ScaleLeft + y
txtInputData(0).Top = Me.ScaleTop + y
lblLeft = x + y + y
lblInputData(0).Left = lblLeft
lblInputData(0).Top = y
lblInputData(0).Caption = lblCaption(0)
For k = 1 To 5
    Load txtInputData(k) 'Ошибку выдает здесь
    Load lblInputData(k)
Dim Topk As Long
    Topk = 3 * k * y / 2 + y
    With txtInputData(k)
     .Left = y
     .Top = Topk
     .Visible = True
    End With
    With lblInputData(k)
     .Left = lblLeft
     .Top = Topk
     .Caption = lblCaption(k)
     .Visible = True
    End With
Next k
End Sub
 
Private Sub LoadMetalsParam()
ReDim MetalsParam(0 To 5, 0 To 3)
 
MetalsParam(0, 1) = 0.000000055 'Вольфрам
MetalsParam(1, 1) = 0.0041
MetalsParam(2, 1) = 0.0000045
MetalsParam(3, 1) = 3650
MetalsParam(4, 1) = 2560000#
MetalsParam(5, 1) = 0.81
 
MetalsParam(0, 2) = 0.0000000178 'Медь
MetalsParam(1, 2) = 0.0038
MetalsParam(2, 2) = 0.0000165
MetalsParam(3, 2) = 1083
MetalsParam(4, 2) = 3430000#
MetalsParam(5, 2) = 0.78
 
MetalsParam(0, 3) = 0.0000001 'Железо
MetalsParam(1, 3) = 0.0004
MetalsParam(2, 3) = 0.0000122
MetalsParam(3, 3) = 1914
MetalsParam(4, 3) = 3630000#
MetalsParam(5, 3) = 0.68
 
    With cboMetalsList
     .AddItem "Выберите металл", 0
     .AddItem "Вольфрам", 1
     .AddItem "Медь", 2
     .AddItem "Железо", 3
     .TopIndex = MetalIndex
     .ListIndex = MetalIndex
    End With
End Sub
 
Private Sub SelectMetal(MetalID As Long)
Dim ParamID As Long
    For ParamID = 0 To 5
        txtInputData(ParamID) = MetalsParam(ParamID, MetalID)
    Next
End Sub