比如，text1不是数字时，text2=“a”，否则text2=“b”

"不是数字"怎么样才算？

像“123”和“1.1”这样算数字
含有其他东西的不算数字（包括加减乘除）

str(val(text1.text))<>text1.text

Option Explicit

Private Sub Text1_Change()
    If IsNumeric(Text1.Text) Then
    Text2.Text = "a"
    Else
    Text2.Text = "b"
    End If
End Sub

非常感谢