run time error on code -2147417848 (80010108)

Sub Reputation()
Dim Problem as Variant
Dim Reputation as Integer
For Each Problem in Forum.Threads
    If Problem.Title = "*[Solved]*" and Solver.Name = "Leon V (AW)" Then Reputation = Reputation + 1
Next Problem
End Sub