Private m_sOpenPath As String
    Property sOpenPath() As String
        Get
            Return m_sOpenPath
        End Get
        Set(ByVal Value As String)
            m_sOpenPath = Value
        End Set
    End Property

Dim myVar As New variablen
 
in der Funktion:
myVar.sOpenPath = "c:\temp"

Ich nutze Visual Basic 2005 Express Edition auf W2KP und XP