Вы должны использовать маленький трюк
<test> _
Public Sub Test
mockedRepository.Expect(Function(x) domock(x)).DoOtherStuff()
End SUb
Private Function domock(Byval x as whateverxis) as boolean
x.AddUser(someUser)
return false 'but actualy who cares
End Function
Все это безобразие решено в VB10