Private Sub Test_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Test.Click
          Dim sr As New IO.StreamWriter( _
            My.Computer.FileSystem.SpecialDirectories.Desktop & _
            "\Barcodes.txt", True)
          sr.WriteLine(Test.Text)
          sr.Flush()
          sr.Close()
          Test.Text = ""
     End Sub