Dim fso As New FileSystemObject, fs As Boolean fs = fso.FileExists(fss) If fs = True Then Open SSS + ".ini" For Input As #fm i = 1 Do Until EOF(fm) Line Input #fm, bb(i) i = i + 1 Loop Close #fm Else fso.CreateTextFile (SSS + ".ini") For i = 1 To 250 bb(i) = "" Next i End If