代码纠错及优化，textbox数据不能完全同步

350977106

如图，是一个记单词的窗体结构，我想在textbox8中，保持最高记录数据，在运行过程中，只能达到最高数值9，即便textbox3中的数据超过了数值9，textbox8中的数据不在同步更新，数据小于9时，可以同步。人为预先调高textbox8中的数据，超过9以上数据，运行几次后，数据也会自动跳回到9以下，再接着跟textbox3中的数据同步，到9为止。请老师帮忙分析问题出现的原因，如何修正。出错代码如下：
If Me.TextBox3.Value > Me.TextBox8 Then
            Me.TextBox8 = Me.TextBox3
            Sheets(sht).Range("t1") = Me.TextBox3
        Else
            Me.TextBox8 = Me.TextBox8
        End If

去掉假设条件，简单同步，可以更新最高数据，但达不到目的，保持最高记录的效果。另外涉及到循环不重复取值的代码如下，老师能否帮忙优化一下，谢谢！！！
Private Sub 下一个_Click()
    sht = Me.ComboBox1
    Me.TextBox1 = Sheets(sht).Range("N1")

    Sheets(sht).Range("Q1") = 2
    If Sheets(sht).Range("S1") > 0 Then
        x = Me.TextBox1
rrr:
        Randomize
        Me.TextBox2 = Int(Rnd() * x + 2)
        Row = Me.TextBox2
        If Sheets(sht).Range("f" & Row) = "☆" Then
            GoTo rrr
        Else
            Row = Me.TextBox2
        End If
    Else
        MsgBox "恭喜你全部过关 重新开始 OK！"
        x = Me.TextBox1
        Sheets(sht).Range("f2:f" & x + 1) = "◎"
        Me.TextBox3 = 0
        Exit Sub
    End If

    If Me.TextBox9 = 0 Then
        Me.TextBox10 = ""
    Else
        Me.TextBox10 = Sheets(sht).Range("c" & Row).Value
    End If

    Me.TextBox5 = ""
    Me.TextBox7 = ""
    Me.Label1 = ""
    If Me.TextBox6 = 1 Then
        Me.TextBox4 = Sheets(sht).Range("d" & Row)
    Else
        Me.TextBox4 = Sheets(sht).Range("b" & Row)
    End If
End Sub


最后一个问题，当我在textbox5中拼写完成回车（enter键），如何直接跳转执行“确定”命令按钮的内容。
完整代码详见附件。望各位老师不吝赐教，谢谢！！！

350977106

主要是第一个问题，为什么没人答复呢？

350977106

出错的原因不清楚，但找到了解决的办法。就是窗体从单元格读取数据，而不是单元格从窗体读取数据。
Private Sub 确定_Click()
    sht = Me.ComboBox1
    If Me.ComboBox1 <> Sheets("说明").Range("a1") Then
        Sheets("说明").Range("a1") = Me.ComboBox1
    End If
   
    Row = Me.TextBox2
    Me.Label1 = "☆"
    Sheets(sht).Range("f" & Row).Value = "☆"
    Me.TextBox7.Value = Sheets(sht).Range("b" & Row).Value
   
    If Me.TextBox5.Value = Sheets(sht).Range("b" & Row).Value Then
     '   Me.TextBox3 = Me.TextBox3 + 1
        Sheets("说明").Range("a2") = Sheets("说明").Range("a2") + 1
       Me.TextBox3 = Sheets("说明").Range("a2")
        Me.Label1 = "☆"
        Sheets(sht).Range("f" & Row).Value = "☆"
        
    Else
        Me.TextBox7.Value = Sheets(sht).Range("b" & Row).Value
        Sheets("说明").Range("a2") = 0
       ' Me.TextBox3 = 0
        Me.Label1 = "△"
        Sheets(sht).Range("f" & Row).Value = "△"
    End If
   
    If Sheets("说明").Range("a3") >= Sheets("说明").Range("a2") Then
             Sheets("说明").Range("a3") = Sheets("说明").Range("a3")
            
            
        Else
        Sheets("说明").Range("a3") = Sheets("说明").Range("a2")
    End If
     Me.TextBox3 = Sheets("说明").Range("a2")
    Me.TextBox8 = Sheets("说明").Range("a3")
End Sub