Не могу разобраться в коде - VB

Private Sub cmdSaveType_Click()
 
Dim indx As Integer
Dim sqlMaxID As String
Dim rsMaxIDNumber As Recordset
Dim lNewTypeID As Long
Dim sMessage As String
 
If (Len(CboDescription.Text) < 1) Then
    sMessage = "Please enter the Call Type Discription in"
    sMessage = sMessage & "the combo box."
    indx = MsgBox(sMessage, vbOKOnly + vbInformation, progname)
    Exit Sub
End If
If (iCurrentState <> NOW_ADDING) Then
    indx = MsgBox("Change all entries for" "&  sCurrentDescription &" "to" "& cboDescription.Text & "?", vbYesNo+vbQuestion, progname)
Else
    indx = MsgBox("Add call type: " & CboDescription.Text, vbYesNo + vbQuestion, progname)
End If
If (indx <> vbYes) Then
    iCurrentState = NOW_IDLE
    Call updatedescriptionCombo
    Exit Sub
End If
Set rsCallType = dbContact.OpenRecordset("CallType", dbOpenTable)
    If (iCurrentState = NOW_ADDING) Then
    sqlMaxID = "SELECT Max(CallType.CallTypeID) AS LastType"
    sqlMaxID = sqlMaxID & "FROM CallType"
    Set rsMaxIDNumber = dbContact.OpenRecordset(sqlMaxID)
    rsCallType.AddNew
    rsCallType!CallTypeID = lNewTypeID
    rsCallType!CallDescription = Trim$(Left$(CboDescription.Text, 20))
    currentSelection = lNewTypeID
Else
    rsCallType.Edit
    rsCallType!CallDescription = sCurrentDescription
    currentSelection = rsCallType!CallTypeID
End If
rsCallType.Update
CmdSaveType.Enabled = False
Call updatedescriptionCombo
iCurrentState = NOW_IDLE
End Sub