'**************************************
    ' Name: Populate data into array from te
    '     xt file !
    ' Description:To populate a data into an
    '     array from a text file. The text file is
    '     the replacement for a database. Not alwa
    '     ys wud ur back end will b a database!
    ' By: Baajhan
    '
    ' Inputs:u need a text file on your desk
    '     top or any path !
    '
    ' Returns:Check the array, It shud have 
    '     values from the points.txt file. This sh
    '     ud b helpful where a control needs value
    '     s froma an array. Have phun ! ba-bye
    '
    ' Assumes:its just code u can use it as 
    '     u like it huh ha !
    '
    ' Side Effects:nothing!
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/vb/scripts/Sho
    '     wCode.asp?txtCodeId=6667&lngWId=4    'for details.    '**************************************
    
    Dim fname As String
    Dim i, f, fs As Integer
    Dim nextline As String
    ' Open the file.
    f = FreeFile
    fname = App.Path
    if Right$(fname, 1) <> "\" Then fname = fname & "\"
    fname = fname & "points.txt"
    Open fname For Input As #f
    Do While Not EOF(f)
    Line Input #f, nextline
    fs = Val(nextline)
    Values(aa) = fs
    Loop
    Close #fnum