how to create a lucene index in vb.net

Dim directory As Directory = FSDirectory.GetDirectory(folderName)
           Dim analyzer As Lucene.Net.Analysis.Analyzer = New SimpleAnalyzer()
           Dim indexWriter As New IndexWriter(directory, analyzer)
           indexWriter.SetRAMBufferSizeMB(10.0)
           indexWriter.SetUseCompoundFile(False)
           indexWriter.SetMaxMergeDocs(10000)
           indexWriter.SetMergeFactor(100)

           For Each value As IList In preparedtoindex
               Dim doc As New Document()
               For Each name As String In selectStatement
                   doc.Add(New Field(selectedName, value(cntr).ToString(), Field.Store.YES, Field.Index.ANALYZED))
               Next
               doc.Add(New Field("title", Field.Store.YES, Field.Index.ANALYZED, Field.TermVector.YES))
               writer.AddDocument(doc)
           Next
           indexWriter.Optimize()
           indexWriter.Close()