Input String was not in the correct format - Strange places

I am getting a very very odd error.  I have a web application that was painstakingly converted from C# to VB .NET.  Now I know there is a lot of work involved to getting this to function, but I'm seeing some strange errors.  I have a function that is giving me the "Input string was not in hte correct format" error, however, it does it on odd lines.  In the Attached snippet, the error is on the last "End If" line.  If I comment the whole block out and try to manually return an integer, it will throw the error on one of my commented lines.  The code is below (not sure how the snippet system works yet).  Also, this is .NET Framework 2.0.  Compiles with no errors or warnings.

            Dim result As Integer = 0

            Dim key As String = "GetTotalCalls_" & commId & "_" & sDate.ToShortDateString() & "_" & eDate.ToShortDateString()
            If BaseCallLog.Settings.EnableCaching AndAlso BizObject.Cache(key) IsNot Nothing Then
                result = CInt(BizObject.Cache(key))
            Else
                If commId = 0 Then
                    Dim cList As List(Of Community.Community) = Community.Community.GetCommunitiesByUser(Membership.GetUser().UserName)
                    If cList.Count > 0 Then
                        For Each comm As Community.Community In cList
                            result += CInt(SiteProvider.CallLog.GetCallVolume(sDate, eDate, comm.TableName))
                        Next
                    End If
                Else
                    Dim tableName As String = Community.Community.GetTableNameFromCommunityId(commId)
                    result += CInt(SiteProvider.CallLog.GetCallVolume(sDate, eDate, tableName))
                End If
                BaseCallLog.CacheData(key, result)
            End If
            Return resultStart Free Trial

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Dim result As Integer = 0
 
            Dim key As String = "GetTotalCalls_" & commId & "_" & sDate.ToShortDateString() & "_" & eDate.ToShortDateString()
            If BaseCallLog.Settings.EnableCaching AndAlso BizObject.Cache(key) IsNot Nothing Then
                result = CInt(BizObject.Cache(key))
            Else
                If commId = 0 Then
                    Dim cList As List(Of Community.Community) = Community.Community.GetCommunitiesByUser(Membership.GetUser().UserName)
                    If cList.Count > 0 Then
                        For Each comm As Community.Community In cList
                            result += CInt(SiteProvider.CallLog.GetCallVolume(sDate, eDate, comm.TableName))
                        Next
                    End If
                Else
                    Dim tableName As String = Community.Community.GetTableNameFromCommunityId(commId)
                    result += CInt(SiteProvider.CallLog.GetCallVolume(sDate, eDate, tableName))
                End If
                BaseCallLog.CacheData(key, result)
            End If
            Return result