Thanks for the help. When I record the test I get the following with no SetText command.
Sub Test1
Dim sensorWorks
Dim sensorWorksMain
Dim manageJob
Dim textBox
Set sensorWorks = Aliases.SensorWorks
Set sensorWorksMain = sensorWorks.SensorWorksMain
Call sensorWorksMain.MainMenu.Click("Project|New")
sensorWorks.dlgNew.btnOpen.ClickButton
Set manageJob = sensorWorks.ManageJob
Set textBox = manageJob.textBoxJobNumber
Call textBox.Click(18, 7)
Call textBox.Click(44, 10)
Call manageJob.label2.Click(38, 18)
manageJob.buttonOk.ClickButton
Call sensorWorksMain.MainMenu.Click("Project|Close")
End Sub
I modified the script to add the two SetText items shown below and it works perfectly.
Sub Test1
Dim sensorWorks
Dim sensorWorksMain
Dim manageJob
Dim textBox
Set sensorWorks = Aliases.SensorWorks
Set sensorWorksMain = sensorWorks.SensorWorksMain
Call sensorWorksMain.MainMenu.Click("Project|New")
SensorWorks.dlgNew.ComboBoxEx32.SetText("test4.proj")
sensorWorks.dlgNew.btnOpen.ClickButton
Set manageJob = sensorWorks.ManageJob
Set textBox = manageJob.textBoxJobNumber
manageJob.textBoxJobNumber.SetText("123456")
Call textBox.Click(18, 7)
Call textBox.Click(44, 10)
Call manageJob.label2.Click(38, 18)
manageJob.buttonOk.ClickButton
Call sensorWorksMain.MainMenu.Click("Project|Close")
End Sub