Out of Stack Space Message

[Carmen]

Does anybody know what the error message "out of stack space" means? I have used code to create a field based on two other fields. I am receiving the error message when I try to call a subroutine that will increment this field by one. I can't find any reference to this message in the help files. Thanks for your help.

 

[Rich]

Posting the code may be helpful

 

[Carmen]

Sorry I should have done that to begin with. Here is the original function:
Function calcsecid()
'capture the year of session 1 date as yr and label the fall and _
spring semesters according to the month of session 1. Combine _
yr, sem, and module id to create the section ID field.
ModID = Forms!frmClasses!ModuleID
session = Forms!frmClasses!Session1
yr = Year(session)

If (DatePart("m", [session]) <= 6) Then
sem = "SP"
ElseIf (DatePart("m", [session]) >= 7) Then
sem = "FA"
End If

calcsecid = yr & sem & "M" & ModID & 1
Me.Text28 = calcsecid
Call Form_frmClasses.AddSecID





End Function

Here is the AddSecID that I'm trying to call when I get the error message:
Sub AddSecID()
'to add one to the section id

calcsecid = Right(Val(calcsecid), 1) + 1
Me.Text28 = calcsecid

End Sub

I appreciate any help...Thanks!