だったらエラーチェックしないように改造すればいいだけじゃないか。
雛鳥じゃないんだから、人に与えられたものをそのまま使う必要なんてないんだぞ。
Function ScreenToClientRECT(hwnd As HWND, ByRef rc As RECT) As BOOL
    ScreenToClient(hwnd, ByVal VarPtr(Rect.left))
    ScreenToClient(hwnd, ByVal VarPtr(Rect.right))
End Function