[TABLE="width: 909"]
<tbody>[TR]
[TD] Call PrepMemberDataForPosting[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD] CurrentMember = 0 and PastMember = 0 - Action Add new member to current[/TD]
[/TR]
[TR]
[TD] CurrentMember = 0 and PastMember = 1 - Action Add past member to current and delete from past[/TD]
[/TR]
[TR]
[TD] CurrentMember = 1 and PastMember = 0 - Action Update Current Member[/TD]
[/TR]
[TR]
[TD] CurrentMember = 1 and PastMember = 1 - Action Update current member and delete from past[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD] If CurrentMember = 0 Then[/TD]
[/TR]
[TR]
[TD] If PastMember = 0 Then[/TD]
[/TR]
[TR]
[TD] Sheets("Main Menu").Select[/TD]
[/TR]
[TR]
[TD] Call PostNewMemberData[/TD]
[/TR]
[TR]
[TD] Call MemberPayment[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD] ElseIf PastMember = 1 Then[/TD]
[/TR]
[TR]
[TD] ' Member is a past member so we put them in main file[/TD]
[/TR]
[TR]
[TD] Call PostNewMemberData[/TD]
[/TR]
[TR]
[TD] Call DeletePastMember[/TD]
[/TR]
[TR]
[TD] Call MemberPayment[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD] End If[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD] ElseIf CurrentMember = 1 Then[/TD]
[/TR]
[TR]
[TD] If PastMember = 0 Then[/TD]
[/TR]
[TR]
[TD] 'Member is a Current Member so we pull it's data[/TD]
[/TR]
[TR]
[TD] Call UpdateMemberData[/TD]
[/TR]
[TR]
[TD] Call MemberPayment[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD] ElseIf PastMember = 1 Then[/TD]
[/TR]
[TR]
[TD] ' Member is a Current Member and Past Member so we pull it's data[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD] Call UpdateMemberData[/TD]
[/TR]
[TR]
[TD] Call DeletePastMember[/TD]
[/TR]
[TR]
[TD] Call MemberPayment[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD] End If[/TD]
[/TR]
[TR]
[TD] End If[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]' Call ClearMemberForm[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD] Sheets("Main Menu").Select[/TD]
[/TR]
[TR]
[TD] Range("B21").Select[/TD]
[/TR]
[TR]
[TD] MsgBox "Member Added and Payment Processed"[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]End Sub[/TD]
[/TR]
</tbody>[/TABLE]