ハンドルされていない例外エラー

system.stackoverflowexceptionのハンドルされていない例外がsystem.dllで発生しました。

以下のFunction ac_activeをtimerで、１秒に一回起動しています。
随分１時間とかほったらかすと、いつのまにか、エラーが発生しています。
ヘルプに無限ループしているとエラーするとかあるので、これに相当するのかと思いますが、
こういった使い方自体がダメなのでしょうか。

    'AutoCADが起動しているか
    Function ac_active()
        On Error Resume Next
        ac_active = False

        ' 実行中のすべてのプロセスを取得する
        Dim hProcesses As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()

        ' コンピュータ名を指定すると、別のコンピュータのプロセスが取得可能です
        'hProcesses = System.Diagnostics.Process.GetProcesses("MachineName")

        Dim stPrompt As String = String.Empty

        ' 取得できたプロセスからプロセス名を取得する
        For Each hProcess As System.Diagnostics.Process In hProcesses
            stPrompt &= hProcess.ProcessName & System.Environment.NewLine
            If InStr(hProcess.MainWindowTitle, "AutoCAD") > 0 Then
                ac_active = True
                Exit Function
            End If

        Next hProcess

        ' 実行中のすべてのプロセス名を表示する
        'MessageBox.Show(stPrompt)
    End Function