Public Class myKlasse
    Private Shared m_IniDatei As String
    Public Shared Property IniDatei() As String
        Get
            Return m_IniDatei
        End Get
        Set(ByVal Value As String)
            m_IniDatei = Value
        End Set
    End Property
End Class

        Dim neueIniDatei As String
        neueIniDatei = Application.StartupPath & "\IniDatei.ini"
        myKlasse.IniDatei = neueIniDatei
 
        Dim gespeicherteIniDatei As String
        gespeicherteIniDatei = myKlasse.IniDatei