BAPI BAPI_USER_GETLISTからテーブルの値を読み込んで、ユーザが存在しているかどうか判断したいです。

Public Function CheckUser(iCurrentRow As Integer) As Boolean
    Dim oBAPIUserCheck As Object   'BAPIオブジェクト格納用変数
    Dim iCntReturn As Integer   'Returnオブジェクト確認用ループ変数
    Dim oSelection As Object    'Returnオブジェクト確認用ループ変数

    'ユーザ登録BAPIオブジェクト生成
    Set oBAPIUserCheck = oRFC.Add("BAPI_USER_GETLIST")

    'Import ParameterをBAPIオブジェクトにセット
     oBAPIUserCheck.Exports("WITH_USERNAME") = "X"

    Set oSelection = oBAPIUserCheck.Tables("SELECTION_EXP")
    oSelection.Item("PARAMETER").Value("PARAMETER") = "USERNAME"

ここで、掲題のエラーが発生しました。なぜでしょうか。