VBScript.

I am getting an error 'Type mismatch' when I am writing a sub for QTP programming.
I am not able to spot as I tried whole lot:

Sub JavaEditSetULC(ByRef objRef, ByRef objValue)
counter = 0
Do
objRef.SetFocus
objRef.Set(objValue) ' set the field value
ULCFrame("XAPOS").waitForIdle ' wait for ULC idle
counter = counter + 1
If counter = 10 Then
Reporter.ReportEvent micFail, "Failed to Set Value", "Failed to set the value on the specified field."
Exit Do
End If
Loop Until objRef.GetROProperty("value") = objValue
End Sub