求助？？如何全选？？

Question

判断是否是数字，如果输入不是数字，则光标全选输入错误的地方，由于setFocus看起来不明显，如何全选错误的地方，输入错误的地方成为蓝色，看起来明显
谢谢
    
If Not IsNumeric(t1.Text) Then
        MsgBox "学号输入错误，请输入数字", , "提示"
        t1.SetFocus
        Exit Sub
End If

Answer 1

If Not IsNumeric(t1.Text) Then
        MsgBox "学号输入错误，请输入数字", , "提示"
        t1.selectAll 
        Exit Sub
End If

Answer 2

selectAll是什么？怎么查不到？

Answer 3

Private Sub Command1_Click()
    Text1.SetFocus
    SendKeys "{Home}+{End}"
End Sub

Answer 4

试试
text1.selstart定义选择的起始位置
text1.sellenght 定义选择的长度

Answer 5

with text1
  .selstart=0
  .sellength=len(.text)
end with