Public Sub psNeueTextdatei(ByVal strDateiname As String, ByVal strInhalt As _
  String)
  Dim F As Integer
 
  F = FreeFile
  Open strDateiname For Output As #F
  Print #F, strInhalt
  Close #F
End Sub

psNeueTextdatei "Test.txt", ""