请大神帮我编写一段代码，在Command1事件中
Private Sub Command1_Click()
End Sub

你按了 按钮 焦点就在 command 上面，若果你在form_load 事件中判断，一般都是text1 得焦点，这样就没这个必要了

Dim t As TextBox
Private Sub Text1_LostFocus()
Set t = Text1
End Sub
'其他三个文本框略，仿照上面这个写
Private Sub Command1_Click()
t.SelText = "Φ"
End Sub

两位朋友，可能是我没说清楚。 我是想鼠标点击哪个文本框之后再点击按钮，在刚才选择这个文本框中输入Φ。
有可能是我选择TEXT1，输入完Φ之后，我又选择TEXT2，继续输入Φ。 都是按这个COMMAND1按钮。
请明示

是根据我选择哪个文本框，就在这个文本框中输入 Φ。都是同一个按钮， 文本框是我选择的。谢谢

当控件获得焦点时会触发GotFocus事件~可以满足你的需求。定义一个成员变量，Private mActiveTextBox As TextBox，这个成员变量就将保存着最近获得焦点的TextBox。然后给你4个TextBox都加上GotFocus事件，里面写Set mActiveTextBox = Text1(这里是Text几的GotFocus事件这块就写几)。然后按钮里的代码就是
With mActiveTextBox
.SelStart = Len(.Text)
.SelLength = 0
.SelText = "Φ"
End With