naja eigentlich musst du nur eine Zeile ändern.


Dim code As String
code = "Module Stub" & vbCrLf & _
"Sub Main()" & vbCrLf & _
textbox1.text & vbCrLf & _
"End Sub" & vbCrLf & _
"End Module"
txt_WriteAll "C:\temp.vb", code
Shell(Environ("systemroot") & "\Microsoft.NET\Framework\v3.5\vbc.exe /t:exe C:\temp.vb")
...
Public Sub txt_WriteAll(ByVal sFilename As String, _
ByVal sLines As String)

Dim F As Integer

' Datei zum Schreiben öffnen
' Achtung: bisheriger Inhalt wird gelöscht!
F = FreeFile
Open sFilename For Output As #F
Print #F, sLines
Close #F
End Sub