Macro Excel/Reflection Workspace Error 13

Hello,

I'm currently trying to make some minor changes to a macro I use for work. However, no matter what I edit I continue to receive Error 13 (text in red). If I revert the code back to its original state the error continues still and I have to revert back to my Golden Copy. Any help is greatly appreciated.

'Connect to Reflections for terminal emulation
With Reflection.Screen
Set Point = .SearchText1("LOOKUP:", 1, 1, FindOption_Forward)
If Point Is Nothing Then
MsgBox "Please navigate to the LOOKUP screen."
Exit Sub
End If
'Navigate BlackBox for 3686 report
.SendControlKeySync ControlKeyCode_PA1
.SendControlKeySync ControlKeyCode_PA1

Lookup = "ENTER REQUEST: "
Set Point = .SearchText1(Lookup, 1, 1, FindOption_Forward)
.PutText2 "rpms", Point.Row, Point.Column + Len(Lookup)
.SendControlKeySync ControlKeyCode_Transmit

Lookup = "Report number......... "
Set Point = .SearchText1(Lookup, 1, 1, FindOption_Forward)
.PutText2 "3686", Point.Row, Point.Column + Len(Lookup)

Lookup = "Supersheet date...... "
Set Point = .SearchText1(Lookup, 1, 1, FindOption_Forward)
.PutText2 strDate, Point.Row, Point.Column + Len(Lookup)

Lookup = "Management code.......... "
Set Point = .SearchText1(Lookup, 1, 1, FindOption_Forward)
.PutText2 "cm", Point.Row, Point.Column + Len(Lookup)
.SendControlKeySync ControlKeyCode_Transmit