BindingSource PositionChanged and TextChanged events

Private Sub StudentScheduleBindingSource_Position(ByVal sender As System.Object, _ 
            ByVal e As System.EventArgs) _
            Handles StudentScheduleBindingSource.PositionChanged
        
            'Some code.
End Sub

'The above event changes the textbox data and triggers the TextChanged event below

Private Sub TalkTextBox_TextChanged(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) _
            Handles T1TextBox.TextChanged, T2TextBox.TextChanged, _
                    T3TextBox.TextChanged, T1aTextBox.TextChanged, _
                    T2aTextBox.TextChanged, T3aTextBox.TextChanged, _
                    T3bTextBox.TextChanged   
  Dim tb as TextBox = sender  'For this example assume T1TextBox is sender
  If tb.Text <> "" then
     id = FindInArray(studentNames, tb.Text) 'Find the student in the array
     cnsl = AllStudents(id, byCounsel) ' Get the counsel point they are working on
  End If

  ' This is where the problem starts
  ' tmsReview textbox stil has the old value in it and hasn't updated yet.
  ' schDateTextBox also has to old value (last week) and hasn't updated yet.
  ' Therefore T1Counsel.Text will not be correct.
  If tmsReview.Text = "Review" then 
       T1Counsel.Text = "R"
  Else
       T1Counsel.Text = cnsl
  End if

  'This code doesn't work either. Because it too is a week off.
  'Assume schDateTextBox is sender and has been added to Handles list
  If schDateTextBox.Text = reviewWeek then 
       T1Counsel.Text = "R"
  Else
       T1Counsel.Text = cnsl
  End if

End Sub

'Another attempt is to capture the Date change and compare it with the Review data
'This doesn't work because the tmsReviewTextBox still may not have updated yet _
'  and the T1CounselTextBox will still be wrong. When the T1TextBox.TextChanged _
'  is triggered it may overwrite the T1CounselTextBox
Private Sub SchDateTextBox_TextChanged(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles SchDateTextBox.TextChanged
  If tmsReview.Text = "Review" then 
       T1Counsel.Text = "R"
  Else
       T1Counsel.Text = cnsl
  End if
 


'This is the only way I can get it to work.
'Create an array containing all ReviewDates and search for them _
'  each time the StudentScheduleBindingSource_Position event is triggered
Private Sub SchDateTextBox_TextChanged(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles SchDateTextBox.TextChanged
    If FindInArray(tmsReviewDates, CDate(SchDateTextBox.Text)) >= 0 Then
       T1CounselTextBox.Text = "R"
    End If
End Sub