Problem med function

Hej eksperter

Jeg sidder lige og koger over et problem... når jeg call'er denne sub, så sætter den ikke variablen ind under objUser.AD, ved godt det ikke vil virke, men ved ikke hvad jeg skal gøre for at sætte en variabel ind efter "objUser.". Hvad kan jeg gøre, min sub ser således ud:

Sub objUserClear(AD,STR)
    If str = "" Then
        objUser.PutEx 1, AD, 0
    Else
        objUser.AD = STR
    End If
End Sub