Failed To Convert Parameter Value From String To Int32

I am not sure where my app is failing but most probably this is where it is failing.. I think lblExpID.Text is the culprit. Here's the relvant part of my code:

Dim lblExpID As Label
For Each item In LSGrid.Rows
lblExpID = item.FindControl("lblID")
If txtExpGenFund.Text <> "" Then
sqlArray(i) = ExpDetailsID & "," & (lblExpID.Text) & "," & MunID & "," & _
Val(txtExpGenFund.Text) & "," & Val(txtExpDetSpecialRevenue.Text) & "," & _
Val(txtExpDetCapitalProjects.Text) & "," & expTotal & "," & reportingYear & "," & "Test Comments" & "," & UserID
End If

Can u help me identify why i am getting this error looking at the sp below:

PROCEDURE [dbo].[uspEXPENDITURE_DETAILS]
(
@ExpDetailsID int=0 output,
@ExpDet_ExpID int,
@ExpDet_Municipality_ID nvarchar(50),
@ExpDetGeneralFund money,
@ExpDetSpecialRevenue money,
@ExpDetCapitalProjects money,
@ExpDetTotal money,
@Exp_Reporting_Year varchar(10),
@ExpComments varchar(max),
@Contact_ID int
)
AS
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;

delete from [dbo].[TBL_EXPENDITURE_DETAILS] where ExpDet_ExpID=@ExpDet_ExpID and ExpDet_Municipality_ID=@ExpDet_Municipality_ID and Exp_Reporting_Year=@Exp_Reporting_Year

If @ExpDetailsID >= 0
Begin
INSERT INTO [dbo].[TBL_EXPENDITURE_DETAILS]
([ExpDet_ExpID]
,[ExpDet_Municipality_ID]
,[ExpDetGeneralFund]
,[ExpDetSpecialRevenue]
,[ExpDetCapitalProjects]
,[ExpDetTotal]
,[Exp_Reporting_Year]
,[ExpComments]
,[ExpDetCreatedBy]
,[ExpDetCreateDate])
VALUES
(@ExpDet_ExpID,
@ExpDet_Municipality_ID,
@ExpDetGeneralFund,
@ExpDetSpecialRevenue,
@ExpDetCapitalProjects,
@ExpDetTotal,
@Exp_Reporting_Year,
@ExpComments,
@Contact_ID,
GetDate()
)
SET @ExpDetailsID = SCOPE_IDENTITY()
return @ExpDetailsID
end