Out of Stack Space Error

[BlueScreenOD]

I keep getting an out of stack space error on the following code

    ....
    currentClaimant.AddressLine1 = txtStreet.value
    currentClaimant.AddressLine2 = ""
    currentClaimant.City = cboCities.value
    currentClaimant.State = txtState.value
    currentClaimant.Zip = txtZip.value9E
0D
    currentClaimant.MailingAddressLine1 = txtMailStreet.value
    currentClaimant.MailingAddressLine2 = ""
    currentClaimant.MailingCity = txtMailCity.value
    currentClaimant.MailingState = txtState.value
    currentClaimant.MailingZip = txtZip.value
'''' ERROR OCCURS AT THIS LINE ^ ''''
    currentClaim.IncidentDate = txtDate.value
    currentClaim.IncidentTime = txtTime.value
    currentClaim.IncidentLocation = txtLocation.value
    currentClaim.SendDate = txtSendDate.value
    ....

The Claimant class that I created looks like the following:

Option Explicit

Private first As String
Private middle As String
Private last As String
Private ssn As String
Private DOB As String
Private phone As String
Private phone2 As String
Private address As String
Private address2 As String
Private strCity As String
Private strState As String
Private strZip As String
Private strMailAddress As String
Private strMailAddress2 As String
Private strMailCity As String
Private strMailState As String
Private strMailZip As String


Public Property Get Social() As String
    Social = ssn
End Property

Public Property Let Social(ByVal value As String)
    ssn = value
End Property

Property Get FirstName() As String
    FirstName = first
End Property

Property Let FirstName(value As String)
    first = value
End Property

Property Get MiddleName() As String
    MiddleName = middle
End Property

Property Let MiddleName(aMiddle As String)
    middle = aMiddle
End Property

Property Get LastName() As String
    LastName = last
End Property

Property Let LastName(value As String)
    last = value
End Property

Property Get DateOfBirth() As String
    DateOfBirth = DOB
End Property

Property Let DateOfBirth(value As String)
    DOB = value
End Property

Property Get Telephone1() As String
    Telephone1 = phone
End Property

Property Let Telephone1(value As String)
    phone = value
End Property

Property Get Telephone2() As String
    Telephone2 = phone2
End Property

Property Let Telephone2(value As String)
    phone2 = value
End Property

Property Get AddressLine1() As String
    AddressLine1 = address
End Property

Property Let AddressLine1(value As String)
    address = value
End Property

Property Get AddressLine2() As String
    AddressLine2 = address2
End Property

Property Let AddressLine2(value As String)
    address2 = value
End Property

Property Get City() As String
    City = strCity
End Property

Property Let City(value As String)
    strCity = value
End Property

Property Get State() As String
    State = strState
End Property

Property Let State(value As String)
    strState = value
End Property

Property Get Zip() As String
    Zip = strZip
End Property

Property Let Zip(value As String)
    strZip = value
End Property

Property Get MailingAddressLine1() As String
    MailingAddressLine1 = strMailAddress
End Property

Property Let MailingAddressLine1(value As String)
    strMailAddress = value
End Property

Property Get MailingAddressLine2() As String
    MailingAddressLine2 = strMailAddress2
End Property

Property Let MailingAddressLine2(value As String)
    strMailAddress2 = value
End Property

Property Get MailingCity() As String
    MailingCity = strMailAddress
End Property

Property Let MailingCity(value As String)
    strMailCity = value
End Property

Property Get MailingState() As String
    MailingState = strMailState
End Property

Property Let MailingState(value As String)
    strMailState = value
End Property

Property Get MailingZip() As String
    MailingZip = strMailZip
End Property

Property Let MailingZip(value As String)
    strMailZip = value
End Property

Public Function clear()
    first = ""
    middle = ""
    last = ""
    ssn = ""
    DOB = ""
    phone = ""
    phone2 = ""
    address = ""
    address2 = ""
    strCity = ""
    strState = ""
    strZip = ""
    strMailAddress = ""
    strMailAddress2 = ""
    strMailCity = ""
    strMailState = ""
    strMailZip = ""
End Function

Doe anyone have any idea onw why I would get an error like this? U think it has something to do with my properties, but i'm not sure.