晕，这么简单的代码也会出错

Question

一个按钮一个文本框,点击按钮，文本框内的内容减去一个字符，下面是我写的
Private Sub Command1_Click()
Dim t As String, b As String
t = Text1.Text
b = Right(x, 1)
Text1.Text = Text1.Text - b
End Sub
运行时出错“类型不匹配”

Answer 1

代码为：
Private Sub Command1_Click()
Dim t As String, b As String, s As Integer, m As Integer
t = Text1.Text
s = Len(t)
m = s - 1
b = Left(t, m)
Text1.Text = b
End Sub

Answer 2

Private Sub Command1_Click()
If Text1.Text <> "" Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub

Answer 3

Private Sub Command2_Click()
    Text1.SetFocus
    Text1.SelStart = Len(Text1.Text)
    SendKeys Chr(8)
End Sub

Answer 4

If Text1.Text = "" Then
Exit Sub
End If
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)

Answer 5

要判断Text1.Text <> "",可能是你的Text1.text刚开始时没有数据,所以出错