大変遅くなりましたことをお詫び申し上げます。
他の授業や引越しの事でバタバタしておりました；
れお先生よくわかりましたね。情報収集はいろいろなところでやるべきだと思いやってました。
今回の質問については、Leaveイベントを使うということでした。先生が実際にこのコードを使いなさい、と提示してくれたんです。こんな感じで↓
 Private Sub Qtr1Atxtbox_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Qtr1Atxtbox.Leave
        ' Culculate Qtr1 score ofTeamA
        Try
            ' Declare the variables 
            Dim Qtr1A As Integer = Qtr1Atxtbox.Text
            Dim Qtr2A As Integer = Qtr2Atxtbox.Text
            Dim Qtr3A As Integer = Qtr3Atxtbox.Text
            Dim Qtr4A As Integer = Qtr4Atxtbox.Text
            ' Calculate the value
            FinalScoreA.Text = Qtr1A + Qtr2A + Qtr3A + Qtr4A
        Catch ex As InvalidCastException
            ' Handle a numeric exception
            MsgBox("Enter numeric value")
            With Qtr1Atxtbox
                .Focus()
                .SelectAll()
            End With
        End Try
    End Sub
これを４個分コピペして終了、でした。
皆さん本当に有難うございました。