IBM® SPSS® Amos™ 28

The following program uses PersistFile to display the name of the file in which CAmosSeedManager keeps a history of random number seeds

Imports System.Diagnostics
Module MainModule
    Sub Main()
        Dim SeedManager As New PAmosSeedManager3.CAmosSeedManager3
        Debug.WriteLine(SeedManager.PersistFile())
    End Sub
End Module