Du gehst einfach in die Eigenschaften deines Programmes und dann auf "Windows-Einstellungen anzeigen" und dort änderst du "<requestedExecutionLevel level="asInvoker" uiAccess="false" />" in " <requestedExecutionLevel level="requireAdministrator" uiAccess="false" />". Das sorgt dafür das dein Programm als Admin gestartet wird!
Dann bei Button1.. musste nur noch:
Dim Process As New Process
Process.Start("notepad.exe", "C:\Windows\System32\drivers\etc\hosts")
eingeben und fertig