Dim pfad As String
pfad = "c:\htm"
Dim QuellDatei As TextStream
Set QuellDatei = FSO.CreateTextFile(pfad & "\dd.tmp", True)
 
QuellDatei.Write Meldung
 
Call ShellExecute(Me.hWnd, "open", pfad & "\html2txt.exe", "dd.tmp dd.txt", _
  pfad, 0)
 
While (FSO.FileExists(pfad & "\dd.txt") = False)
         ' warten bis Konsolenprogramm fertig ist
Wend
 
Dim Datei As TextStream
Set Datei = FSO.OpenTextFile(pfad & "\dd.txt", ForReading)
Inhalt = Datei.ReadAll ' HIER
 
QuellDatei.Close
Datei.Close
 
FSO.DeleteFile pfad & "\dd.tmp"
FSO.DeleteFile pfad & "\dd.txt"