按键精灵：提取输入框字符，并且判断输入？

挺简单的，判断总输入框的文本是否存在特定字符串就好了。
If Left(InStr(Form1.InputBox1.Text, "01"), 2) > 0 Then
Form1.InputBox2.Text = Form1.InputBox1.Text
ElseIf Left(InStr(Form1.InputBox1.Text, "02"), 2) > 0 Then
Form1.InputBox3.Text = Form1.InputBox1.Text
End If
上面代码相应数据可以直接在全部代码搜到的，分别用到了Left函数和InStr函数。追问

不行 比如 01999 01表示固定的1号输入框 999是随机变化的数字 01999 表示01号框输入999三个字符 并不是要将 01999 输入到01号框 而且要回车后才输入到1号框
你这个如果我在总输入框里输入 0201 它两个输入框都会有输入 为需要的是 02号框输入 01 两个字符

追答

去掉特定字符很容易，你自己没说明白怪我咯。
第二个问题你把Left函数搞明白再来跟我说。

If Left(InStr(Form1.InputBox1.Text, "01"), 2) > 0 Then
Form1.InputBox2.Text = Replace(Form1.InputBox1.Text,"01","")
ElseIf Left(InStr(Form1.InputBox1.Text, "02"), 2) > 0 Then
Form1.InputBox3.Text = Replace(Form1.InputBox1.Text,"02","")
End If
这次用了Replace函数，搞明白再来追问，别看一眼就觉得自己看穿了一切。

本回答被提问者采纳