VBA returning blank instead of cell value 0

[rjmdc]

the email produces value as blank when cell value is 0

Sub EmailTotalFraud()
  Dim sMail As String, sSubj As String, sBody As String
  Dim TotalFraud        As Integer:     TotalFraud = Worksheets("Fraud Check").Range("TotalFraudulent").Value
  Dim TotalAgencyFraud  As Integer:     TotalAgencyFraud = Worksheets("Fraud Check").Range("AgencyFraudulent").Value
  Dim FileName          As String:      FileName = "Individual and Agency Fraud Check " & Replace(ReportDate, "/", ".")
  Dim FullFilePath      As String
  Dim ReportDate2       As String:      ReportDate2 = Date
  Dim SaveFolder1       As String:      SaveFolder1 = "M:\all\Fraud Check Complete\"
  
  FullFilePath = ExportFolder & PeriodRunFolder

        sMail = "chayac@mea@a.org"
        sSubj = "Individual and Agency Providers Fraud Check"
        sBody = "Fraud check was processed and reviewed on " & Date & "  Total Individual Fraud found " & TotalFraudulent & "  Total Agency Fraud found " & AgencyFraudulent & "." & vbCrLf & _
                 FileName & "can be found in " & SaveFolder1
        Call SendMailTotal(sMail, sSubj, sBody)
      
End Sub

the cell value of agencyfruadulent etc is 0 but the message has a blank instead

 

[davesexcel]

sBody is using the range names, not your variables

 

[rjmdc]

i dont undretsnad i am saying ex totalfraudulent in the body and the variable is a cell range .value
what do i need to correct?

 

[davesexcel]

Total Individual Fraud found " & TotalFraudulent & " Total

Should be

Total Individual Fraud found " & TotalFraud & " Total

 

[rjmdc]

thanks i already reviewed and figured it out