If IO.Directory.Exists("\My Documents\testordner\") = False Then
            IO.Directory.CreateDirectory("\My Documents\testordner\")
        End If
        Dim sr As New IO.StreamWriter("\My Documents\testordner\Barcodes.txt", _
          True)
        sr.WriteLine(TextBox1.Text)
        sr.Flush()
        sr.Close()