Public Sub LoadFileTXT(fp As String, data As Variant, description As String, _
cancel As Boolean)
......
strTemp = Input(LOF(hFile), hFile)
strArray = Split(strTemp, vbCrLf)
Close #hFile
' make the double data array.
' if the first element is not numeric, start at the second element
If IsNumeric(strArray(0)) Then
ReDim data(UBound(strArray) - 1)
For i = 0 To UBound(strArray) - 1
data(i) = CDbl(strArray(i))
Next i
Else
ReDim data(UBound(strArray) - 2)
For i = 1 To UBound(strArray) - 1
data(i - 1) = CDbl(strArray(i))
Next i
End If
.....