Public WriteOnly Property DataPath() As String
     Set(ByVal Value As String)
            Me.DataPath = Value
     End Set
End Property

Private ReadOnly Property PathToApp() As String
    Get
          Return Me.getAppPath()
    End Get
End Property