Imports System.IO

Dim strString As String
path = "C:\Artikelliste_Umsatzbericht.html"
 
Dim oFile As FileStream
Dim oWriter As StreamWriter
oFile = New FileStream(path, FileMode.Create, FileAccess.Write)
oWriter = New StreamWriter(oFile, System.Text.Encoding.Default)
oWriter.Write(strString)
oWriter.Close()
oWriter = Nothing
oFile = Nothing