Try it like this and see if it helps
With Window("Application").Window("Application v1.4.6").WinObject("ThunderRT6FormDC").Window("Person Description").WinObject("___")
.Type micHome
.Type "1"
Wait 0, 500
.Type "8"
Wait 0, 500
.Type "0"
Wait 0, 500
End With
Mate that knocked it on the head. Your a legend.
Any particular reason that works and the original didnt?