Public test As String

Private Sub Class_Initialize()
    Call setTest

    Dim b As Class2
    Set b = New Class2
End Sub

Public Property Set Classed(ByRef vClass As Class1)
    Set vClass = Me
End Property

Public Sub setTest(t As String)
    test = "Sam"
End Sub

Private Sub Class_Initialize()

    Dim newClass As Class1

    newClass.Classed = newClass
    ' Want to be able to access the test String from class 1

End Sub