I am getting error "Subscript of range runtime error "9" in visual basic 6.0

Hi

I am using Visual Basic 6.0 and
I am getting error "Subscript of range runtime error "9"

Please refer the code below
I am using arrays.Pleas help me to fix the error and I have pointed the line in bold which is showing error

Private Sub saveDetailsofRemovalsForExportCurrentMonth()
Dim i As Integer
Dim varARE1DateNumber As String
Dim varDutyAmount As Double
Dim varBondDateSerialNo As Double
Dim varDailyStockEntryNo As Double
Dim varExportProofDateNo As String
Dim SqlStr As String
Dim strARE1DateNumber() As String
Dim str1() As String
Dim a As Variant
Dim str12 As Variant

For i = 1 To lvwRemovals.ListItems.Count

If lvwRemovals.ListItems(i).Text <> "" Then

varARE1DateNumber = lvwRemovals.ListItems(i).SubItems(1)

If (varARE1DateNumber <> "") Then

strARE1DateNumber = Split(varARE1DateNumber, "-")

str12 = Format$(CDate(strARE1DateNumber(1)), "yyyy-MM-dd")

Else

strARE1DateNumber(0) = 0
str12 = ""
End If


If (Trim(lvwRemovals.ListItems(i).SubItems(2)) = "") Then
varDutyAmount = 0
Else
varDutyAmount = lvwRemovals.ListItems(i).SubItems(2)
End If

If (Trim(lvwRemovals.ListItems(i).SubItems(3)) = "") Then
varBondDateSerialNo = 0
Else
varBondDateSerialNo = lvwRemovals.ListItems(i).SubItems(3)
End If

If (Trim(lvwRemovals.ListItems(i).SubItems(4)) = "") Then
varDailyStockEntryNo = 0
Else
varDailyStockEntryNo = lvwRemovals.ListItems(i).SubItems(4)
End If

varExportProofDateNo = lvwRemovals.ListItems(i).SubItems(5)

If (varExportProofDateNo <> "") Then

str1 = Split(varExportProofDateNo, "-")

a = Format(CDate(str1(1)), "yyyy-MM-dd")

Else
str1(0) = 0



a = ""




End If

SqlStr = "Insert into EXCISEANNEXUREXIXPI(ReturnNumber,ARE1Number, ARE1Date ,DutyAmount," _
& " BondDebitSerialNo,DailyStockEntryNo,ExportProofNumber,ExportProofDate,FinYearCode,BranchCode)" _
& " Values(" & txtEEGNumber & ",'" & strARE1DateNumber(0) & "','" & str12 & "'," & varDutyAmount & " ," _
& " " & varBondDateSerialNo & "," & varDailyStockEntryNo & ",'" & str1(0) & "','" & a & "'," _
& " " & cpFinYearCode & "," & cpBraCode & ")"
'MsgBox SqlStr

CN.Execute SqlStr

End If
Next

End Sub

Thanks and Regards
N.Ram