VBA and Class Problem

[AlmostVinDiesel]

I'm having a problem with Excel VBA and Classes. I can't get the member variables to store any information. Can anyone help please? Code is below:



'Class Module: Campaign
'-------------------------------------------------------------------------------------
Private pCampaign As String

Public Property Get Campaign() As String
Campaign = pCampaign
End Property

Public Property Let Campaign(s As String)
pCampaign = s
End Property

'-------------------------------------------------------------------------------------
'Regular Module
Sub Test()
Dim record As Campaign
Set record = New Campaign
record.Campaign = "test"
Range(Cells(1, 1), Cells(1, 1)) = record.Campaign 'But nothing is stored!
End Sub

'Nothing is stored in the Cell A1. Can anyone help?

Thanks!

~John

 

[Norie]

John

Why are you using a class module in the first place?

 

[AlmostVinDiesel]

Isn't that where I should be storing my classes?

 

[Norie]

John

It really depends what you are trying to do.

Class modules are used for/exist for various reasons.

What are you actually trying to do?

 

[AlmostVinDiesel]

I would like to use classes. There are about 15 member vars to this class, and I have about 5 other classes I want.. I'v ejust shown a snippet (I'm developing an application to monitor campaigns, and I'd prefer to go the oop route).

Any idea why what I've written isn't working?

 

[Norie]

Well if you want to go the 'OOP' route I think you might have taken a wrong turn.

VBA is not an OOP language.

 

[AlmostVinDiesel]

True =D

It's the best option I have given the environment. Do you know why my code isn't working?

 

[xld]

John,

It worked fine for me.

I created a class module, called it ampaign then ran the test code. Test was stored in A1 as expected.