Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "clipboard", "java.lang.String")
If r.RunMethod("hasText") Then
Log(r.RunMethod("getText"))
MiVariable = r.RunMethod("getText") ' aqui haces el pegar
Else
Log("No es texto")
End If