Option ExplicitPrivate Sub Command1_Click() Shell (Text1), vbNormalFocusEnd SubPrivate Sub Form_Load() Text1 = "calc"End Sub