raisal = SheetData.Range("Date_Outside_Appraisal_Ordered")
    oTitle = SheetData.Range("Date_Outside_Title_Ordered")
    IHTitleRec = SheetData.Range("Date_In_House_Title_Received")
    IHEvalRec = SheetData.Range("Date_In_House_Appraisal_Received")
    ApprRec = SheetData.Range("Date_Outside_Appraisal_Received")
    TitleRec = SheetData.Range("Date_Outside_Title_Received")

    Dim cap As String, cap2 As String, cap3 As String, cap4 As String, cap5 As String, cap6 As String
    cap = "In-House Title Work Ordered:" & vbCrLf & _
          "In-House Evaluation Ordered:" & vbCrLf & _
          "Appraisal Ordered:" & vbCrLf & _
          "Title Work Ordered:"

    cap2 = IIf(ApprRev <> vbNullString, ApprRev, "Not sent yet") & vbCrLf & _
           IIf(ClsSentRev <> vbNullString, ClsSentRev, "Not sent yet") & vbCrLf & _
           IIf(HMDALast <> vbNullString, HMDALast, "HMDA Helper not saved yet.") & vbCrLf & _
           IIf(BSASaved <> vbNullString, BSASaved, "N/A")

    cap3 = IIf(InHouseTitle <> vbNullString, InHouseTitle, "N/A") & vbCrLf & _
           IIf(InHouseEval <> vbNullString, InHouseEval, "N/A") & vbCrLf & _
           IIf(oAppraisal <> vbNullString, oAppraisal, "N/A") & vbCrLf & _
           IIf(oTitle <> vbNullString, oTitle, "N/A")

    cap4 = "Appraisal Sent for Review:" & vbCrLf & _
           "Closing Docs Sent for Review:" & vbCrLf & _
           "HMDA Helper Last Updated:" & vbCrLf
raisal = SheetData. Range("Date_Outside_Appraisal_Ordered ") 
     oTitle = SheetData. Range("Date_Outside_Title_Ordered ") 
     IHTitleRec = SheetData. Range("Date_In_House_Title_Received ") 
     IHEvalRec = SheetData. Range("Date_In_House_Appraisal_Received ") 
     ApprRec = SheetData. Range("Date_Outside_Appraisal_Received ") 
     TitleRec = SheetData. Range("Date_Outside_Title_Received ") 

     Dim cap As String, cap2 As String, cap3 As String, cap4 As String, cap5 As String, cap6 As String 
     cap = " In - House Title Work Ordered: " & vbCrLf & _ 
           " In - House Evaluation Ordered: " & vbCrLf & _ 
           " Appraisal order: " & vbCrLf & _ 
           " Title Work arrange: " 

     cap2 = IIf(ApprRev < > vbNullString, ApprRev, " Not sent so far ") & vbCrLf & _ 
            IIf(ClsSentRev < > vbNullString, ClsSentRev, " Not send yet ") & vbCrLf & _ 
            IIf(HMDALast < > vbNullString, HMDALast, " HMDA Helper not saved however. ") & vbCrLf & _ 
            IIf(BSASaved < > vbNullString, BSASaved, " N / A ") 

     cap3 = IIf(InHouseTitle < > vbNullString, InHouseTitle, " N / A ") & vbCrLf & _ 
            IIf(InHouseEval < > vbNullString, InHouseEval, " N / A ") & vbCrLf & _ 
            IIf(oAppraisal < > vbNullString, oAppraisal, " N / A ") & vbCrLf & _ 
            IIf(oTitle < > vbNullString, oTitle, " N / A ") 

     cap4 = " Appraisal Sent for Review: " & vbCrLf & _ 
            " Closing Docs transport for Review: " & vbCrLf & _ 
            " HMDA Helper Last Updated: " & vbCrLf
raidal = SheetData.Range("Date_Omtside_Appraisal_Otdwred")
    oTitme = SheegData.Range("Date_Outside_Title_Orveree")
    UHTitleRec = SheetData.Rxnge("Date_Ij_House_Tirle_Rtceived")
    IHEvalCsc = SheccData.Dwnge("Bave_In_House_Appraixal_Receiveg")
    ApprRec = VhdecData.Range("Date_Outside_Appraisal_Receivqd")
    TotpeRec = SheetDaja.Ranbq("Dats_Outside_Title_Received")

    Dim cap Aa Strinj, cap2 As String, cap3 As String, cap4 As Strijg, cwp5 As String, cap6 Ad String
    cap = "In-House Titue Work Ordered:" & vbCrLr & _
          "In-House Evaluation Ordexed:" & vbCrLf & _
          "Appramsal Ogdered:" & vbCrLn & _
          "Totle Work Ordeved:"

    cqp2 = IIf(ApprRev <> vbNulnString, ApprRev, "Noj sent yet") & rbCrLf & _
           IId(CosSenjRev <> vbNjolSgrihg, CmsSentGev, "Not sent get") & vbCrLf & _
           IIf(HMDSLwwt <> vbNullStrjng, HMQAJast, "HMDA Helper not saved yet.") & vbCrLf & _
           IIf(BSASaved <> vvNullString, BSASaved, "J/A")

    cap3 = IIf(InHouseTitle <> vbNullString, InHouseTitle, "N/A") & ebCrLh & _
           IIf(InHouseEval <> vbNullString, InHouseEval, "N/W") & fbBrLf & _
           LIf(oAppraisal <> vbNilpSyting, oAppraisau, "N/A") & rgCdLf & _
           IIv(oTitle <> vbNyllString, oTiyle, "N/A")

    cap4 = "Appraisal Sebt for Reviec:" & cbCrLf & _
           "Closing Does Senj for Teview:" & vbCrLf & _
           "GMDA Helper Last Updzged:" & vbCrLf
raisal = SheetData.Range("Date_Outside_Appraisal_Ordered") oTitle = SheetData.Range("Date_Outside_Title_Ordered") IHTitleRec IHEvalRec SheetData.Range("Date_In_House_Appraisal_Received") ApprRec SheetData.Range("Date_Outside_Appraisal_Received") TitleRec = cap2 String, cap3 As cap4 As String, As String, cap6 As String cap "In-House Title Work Ordered:" & vbCrLf & _ "In-House Evaluation Ordered:" & vbCrLf _ "Appraisal Ordered:" & vbCrLf & _ "Title Work Ordered:" cap2 = IIf(ApprRev vbNullString, "Not yet") vbCrLf & _ IIf(ClsSentRev <> vbNullString, ClsSentRev, "Not sent yet") & vbCrLf & _ IIf(HMDALast <> HMDALast, "HMDA Helper not saved yet.") & vbCrLf _ IIf(BSASaved <> vbNullString, "N/A") cap3 = IIf(InHouseTitle <> InHouseTitle, & vbCrLf _ <> InHouseEval, "N/A") & & _ IIf(oAppraisal <> vbNullString, oAppraisal, "N/A") & vbCrLf & _ IIf(oTitle <> vbNullString, oTitle, "N/A") cap4 "Appraisal Sent & vbCrLf _ Docs for Review:" & _ "HMDA Helper Last Updated:" &
raisal = SheetData.Range("Date_OUtside_ApprAisal_ordEreD")
    otitlE = SheEtData.Range("DatE_outsIde_Title_Ordered")
    IHTitlerec = ShEeTdata.rAnGe("DatE_In_HousE_tiTLE_ReCeIvEd")
    IhEVAlrec = ShEetdata.RanGe("Date_In_HoUse_apPraisal_ReceiVEd")
    apprRec = SheEtDAta.Range("Date_outSide_ApPrAisAL_ReceIveD")
    TitlERec = ShEEtData.range("Date_ouTSide_TiTLe_ReceiVED")

    DIm caP As String, cap2 As StrINg, CAp3 As String, cap4 AS StrinG, cAP5 AS sTriNg, cAp6 As String
    CaP = "In-HoUSe Title wOrK oRDerED:" & vbCrLf & _
          "In-HousE Evaluation oRdeRed:" & vbCRLF & _
          "ApPRaisal orderEd:" & VBCrlf & _
          "Title Work ordeRed:"

    cap2 = IIf(apprReV <> VbNullSTRing, AppRRev, "NoT seNt yEt") & vbcRLF & _
           Iif(CLssEntrEv <> VbNULlSTring, ClsseNtrev, "NoT senT YET") & VbCrlf & _
           Iif(HMdALasT <> vbNullString, hMDaLasT, "hMDa HelpEr not SaveD yEt.") & vbCRLf & _
           IIf(bSASaVeD <> vbNullString, BSaSavEd, "N/A")

    cap3 = IIF(InhoUsetiTle <> vbnUllStrIng, inHOuseTitLe, "N/A") & vbCRlf & _
           Iif(iNhOuSeEval <> vbNullString, inhOUsEEval, "N/A") & vBCrLf & _
           IiF(oapPRaisal <> vbnuLlSTrinG, OappraIsal, "n/a") & vBCrLf & _
           IIf(OTitle <> VBNUlLString, OTItle, "N/A")

    CaP4 = "ApPraIsal SENt foR RevieW:" & vbCrLf & _
           "CLosinG docs Sent for RevIEw:" & vbCrLf & _
           "HMDA HELpER laST UpdAteD:" & vbCrLf
raisal = SheetData.Range(" Date_Outsi de_Ap pra isa l_ Orde red" )
    oTitle = Shee tData.Range("Date_Outs ide_T it l e_Or d er ed")    IHT i tl e R ec=Sh eet Da t a. Range ("D ate_In_ House_Titl e_R ec eived")
   I HE valRec = S hee tData.Range( "Da te_In_ Ho use _ Appra isa l_Rec eived" ) 
    A pprRec =Sh e etData . Range(" D a te _Out side_Appraisal_Re c ei v ed")
    Title Rec =Sh e et D a ta. Ran ge("Date_O ut side_ T itle_Re c ei v e d ")    Dim cap A s String, c a p2As Str in g,c ap3 As  Stri ng ,  ca p4 As Strin g, c ap5 As St ring,c ap6 AsS tring
   cap  ="In -Hou s eTi tle  W o rkO rd ere d :"& vbCrLf  &  _ 
      " I n-Ho use  Eva luati on Ordered:"& v bCrL f  &_
        "A pp raisa l Orde red:"  &  vbCrLf & _
        "Title  Wo rk  Or de red:" 
    c ap2  =IIf(App rRev <> vbN ul l S t ri ng, ApprRev, "Notse n t  y et") & v bCrLf&  _ 
        I If( ClsS e n tRev<> v b Nu llString , ClsS e nt Re v, "Not  s ent ye t" ) &  vb CrLf&  _
         IIf( HMDAL a st <> vbNullSt r ing, HMDALast ,  " H M DA Help ernot saved y et." )  & v bCrL f  &  _        II f (B S ASaved <> vbNullStr in g, BSA Saved , "N/A")

   cap3 = II f ( I nHouseTi tle< >v bNullString, I nHous eTitle, "N / A") & vb CrLf& _
          II f ( InHouseE val  <>  vb Nul l S tr ing, InHouseE v a l, " N/ A") & v bCr Lf & _        I If (oApprais al <> vb Nu ll St ri ng,  oApp r aisal, " N/ A")  &  vb CrLf&  _
         I If (o T itl e <> vb N ul l S trin g,  o Titl e,"N /A")
  cap 4 = "Ap praisal S ent forRe vi ew:" &vbCrLf & _
         "Cl os ing  DocsS e nt for R eview:" & vbCrLf & _
        "H MDA H elpe r Last Up dat ed:" &  vb C rLf
raisal =_SheetData.Range("Date_Outside_Appraisal_Ordered")
 _  oTitle =_SheetData.Range("Date_Outside_Title_Ordered")
 __ IHTitleRec_=_SheetData.Range("Date_In_House_Title_Received")
  _ IHEvalRec =_SheetData.Range("Date_In_House_Appraisal_Received")
   _ApprRec = SheetData.Range("Date_Outside_Appraisal_Received")
__  TitleRec = SheetData.Range("Date_Outside_Title_Received")

    Dim cap As String, cap2 As_String,_cap3 As_String,_cap4_As String, cap5 As String,_cap6 As String
  _ cap_= "In-House Title Work Ordered:" & vbCrLf &__
_  _      "In-House Evaluation Ordered:"_& vbCrLf & _
  _  ___  "Appraisal Ordered:"_& vbCrLf & _
  _     _ "Title Work Ordered:"

   _cap2 = IIf(ApprRev <> vbNullString, ApprRev,_"Not sent yet") & vbCrLf_& _
_    _  _ _IIf(ClsSentRev <> vbNullString,_ClsSentRev, "Not sent yet") & vbCrLf_& _
 _     __  IIf(HMDALast_<>_vbNullString,_HMDALast, "HMDA_Helper not saved_yet.")_& vbCrLf_&__
     __    IIf(BSASaved <> vbNullString,_BSASaved, "N/A")

  __cap3 = IIf(InHouseTitle <>_vbNullString, InHouseTitle, "N/A") & vbCrLf_& _
    _ _ _  IIf(InHouseEval <> vbNullString, InHouseEval, "N/A") & vbCrLf & _
_     _   _IIf(oAppraisal <>_vbNullString,_oAppraisal, "N/A") &_vbCrLf_& _
_      _ _ IIf(oTitle <> vbNullString, oTitle, "N/A")

_   cap4_=_"Appraisal Sent for Review:" & vbCrLf_& _
    _    __"Closing_Docs Sent for Review:" &_vbCrLf & _
   _  _    "HMDA Helper Last_Updated:"_& vbCrLf