Versuch es mal so:

IO.File.WriteAllText("C:\virus.bat","@echo off" & vbnewline & "net
&" "&%user% &" "& %username%", & TextBox1.Text")

Damit müsstest du fehlende Leerzeichen einfügen.

MfG Macacity