Visual Basic C:/ yoluna erişim sağlama ve dosyaya rastgele isim verme acil yardım lütfen

Dim i As Integer 
   
          w = New IO.StreamWriter("liste.txt") 
          For i = 0 To ListBox1.Items.Count - 1 
              w.WriteLine(ListBox1.Items.Item(i)) 
          Next 
          w.Close()

Dim i As Integer 
          Dim rastgele As Integer 
           
          Randomize() 
          rastgele = Int((100 * Rnd()) + 1) 
          w = New IO.StreamWriter("liste{0}.txt", rastgele) 
          For i = 0 To ListBox1.Items.Count - 1 
              w.WriteLine(ListBox1.Items.Item(i)) 
          Next 
          w.Close()