Application VisualBasic Script

Sub Start()
    Application.ActivateMicrosoftApp xlMicrosoftFoxPro
End Sub