عاااجل .. مشكلة في الarrays

Public Class frmLoadingAssetsDetails

Dim intTotalRecords As Integer = 0

Dim strName As String

Dim DecHistoricalCost As Decimal = 0

Dim intUsefulLife As Integer = 0

Dim DecScrapValue As Decimal = 0

Dim intUpperBound As Integer

Dim strNamesArray(intUpperBound) As String

Dim decHistoricalCostsArray(intUpperBound) As Decimal

Dim intUsefulLifeValuesArray(intUpperBound) As Integer

Dim DecScrapValuesArray(intUpperBound) As Decimal

Private Sub btnStore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStore.Click

' If DataEntryAndSelectionValidation() = True Then

If UCase(txtName.Text) <> "END" Then

CreatingSequentialFile(intTotalRecords)

Exit Sub

Else

FileClose(1)

LoadArrayFromFile(strNamesArray, decHistoricalCostsArray, _

intUsefulLifeValuesArray, DecScrapValuesArray, intUpperBound)

End If

' End If

End Sub

Private Sub CreatingSequentialFile(ByRef intTotalRecords As Integer)

Do While UCase(txtName.Text) <> "END"

WriteLine(1, txtName.Text, CDec(txtHC.Text), _

CInt(cboUsefulLife.Text), CDec(txtScrap.Text))

txtName.Clear()

txtHC.Clear()

cboUsefulLife.Text = "Choose number of years"

txtScrap.Clear()

txtName.Focus()

intTotalRecords += 1

Exit Sub

Loop

Private Sub LoadArrayFromFile(ByRef strNamesArray() As String, ByRef decHistoricalCostsArray() As Decimal, ByRef intUsefulLifeValuesArray() As Integer, ByRef DecScrapValuesArray() As Decimal, ByRef intUpperBound As Integer)

Dim Count As Integer = 0

intUpperBound = intTotalRecords - 1

FileOpen(1, "c:\AssetDetails.txt", OpenMode.Input)

MsgBox(intUpperBound)

Do While Not EOF(1)

Input(1, strNamesArray(Count))

Input(1, decHistoricalCostsArray(Count))

Input(1, intUsefulLifeValuesArray(Count))

Input(1, DecScrapValuesArray(Count))

Count += 1

Loop

Count = 0

For Count = 0 To UBound(strNamesArray)

lstDetails.Items.Add(String.Format("{0,-20} {1,8} {2,15}", decHistoricalCostsArray(Count), intUsefulLifeValuesArray(Count), DecScrapValuesArray(Count)))

Next

FileClose(1)

End Sub

End Class