Dim thunderrtformdc As Long, sstabctlwndclass As Long, thunderrttextbox As Long
thunderrtformdc = FindWindow("thunderrt6formdc", vbNullString)
sstabctlwndclass = FindWindowEx(thunderrtformdc, 0&, "sstabctlwndclass", vbNullString)
thunderrttextbox = FindWindowEx(sstabctlwndclass, 0&, "thunderrt6textbox", vbNullString)
thunderrttextbox = FindWindowEx(sstabctlwndclass, thunderrttextbox, "thunderrt6textbox", vbNullString)
thunderrttextbox = FindWindowEx(sstabctlwndclass, thunderrttextbox, "thunderrt6textbox", vbNullString)
thunderrttextbox = FindWindowEx(sstabctlwndclass, thunderrttextbox, "thunderrt6textbox", vbNullString)
thunderrttextbox = FindWindowEx(sstabctlwndclass, thunderrttextbox, "thunderrt6textbox", vbNullString)
Call SendMessageByString(thunderrttextbox, WM_SETTEXT, 0&, "The New Text")