Public Shared Function SaveTextToFileWriteLine(ByVal strData As String, ByVal strPfad As String) As Boolean
 Dim bAns As Boolean = False
 Try
  If File.Exists(strPfad) Then
   Using sw As StreamWriter = File.AppendText(strPfad)
    sw.WriteLine(strData)
    sw.WriteLine(DateTime.Now)
    sw.Close()
   End Using
  End If
  bAns = True
 Catch Ex As Exception
  'Stop 'ErrInfo = Ex.Message
 End Try
Return bAns
End Function