 message but it keeps throwing Error

What am I doing wrong on my code?
Option Explicit
Public Sub Test(Item As Outlook.MailItem)
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim vText As Variant
    Dim sText As String
    Dim vItem As Variant
    Dim i As Long
    Dim rCount As Long
    Dim XStarted As Boolean
    Dim FileName As String
    Dim FilePath As String '// SaveAs CSV File Path
    Dim sPath As String '//.CSV File Path

    '// the path of the workbook
    sPath = "C:\temp\temp.csv"

    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")

    If Err <> 0 Then
        Application.StatusBar = "Please wait while Excel source is opened... "
        Set xlApp = CreateObject("Excel.Application")
        XStarted = True
    End If

'    On Error GoTo 0
    '// Open the workbook to input the data
    Set xlWB = xlApp.Workbooks.Open(sPath)
    Set xlSheet = xlWB.Sheets("Report")

    '// Process received Mail
    sText = Item.Body
    vText = Split(sText, Chr(13))'Chr(13)) carriage return

    '// Find the next empty line of the worksheet
    rCount = xlSheet.Range("B" & xlSheet.Rows.Count).End(xlUp).Row
    rCount = rCount + 1

    '// Check each line of text in the message body
    For i = UBound(vText) To 0 Step -1

        '// Customer Name
        If InStr(1, vText(i), "Customer") > 0 Then
            vItem = Split(vText(i), Chr(9))'Chr(9) horizontal tab
            xlSheet.Range("A" & rCount) = Trim(vItem(1))
        End If

        '// Ref Number
        If InStr(1, vText(i), "Order #") > 0 Then

message but it keeps throwing Error 

 What am I doing wrong on my code? 
 Option Explicit 
 Public Sub Test(Item As Outlook. MailItem) 
     Dim xlApp As Excel. Application 
     Dim xlWB As Excel. Workbook 
     Dim xlSheet As Excel. Worksheet 
     Dim vText As Variant 
     Dim sText As String 
     Dim vItem As Variant 
     Dim iodine As Long 
     Dim rCount As Long 
     Dim XStarted As Boolean 
     Dim FileName As String 
     Dim FilePath As String' // SaveAs CSV File Path 
     Dim sPath As String' //.CSV File Path 

    ' // the way of the workbook 
     sPath = " C:\temp\temp.csv " 

     On Error Resume Next 
     Set xlApp = GetObject (, " Excel. Application ") 

     If Err < > 0 Then 
         lotion. StatusBar = " Please wait while Excel reservoir is opened... " 
         Set xlApp = CreateObject("Excel. lotion ") 
         XStarted = True 
     End If 

'     On Error GoTo 0 
    ' // Open the workbook to input the datum 
     Set xlWB = xlApp. workbook. Open(sPath) 
     Set xlSheet = xlWB.Sheets("Report ") 

    ' // Process received Mail 
     sText = Item. Body 
     vText = Split(sText, Chr(13))'Chr(13) ) baby buggy return 

    ' // Find the next empty lineage of the worksheet 
     rCount = xlSheet. Range("B " & xlSheet. Rows. Count).End(xlUp).Row 
     rCount = rCount + 1 

    ' // Check each line of text in the message body 
     For i = UBound(vText) To 0 Step -1 

        ' // Customer Name 
         If InStr(1, vText(i), " Customer ") > 0 Then 
             vItem = Split(vText(i), Chr(9))'Chr(9) horizontal tab 
             xlSheet. Range("A " & rCount) = Trim(vItem(1) ) 
         goal If 

        ' // Ref Number 
         If InStr(1, vText(i), " Order # ") > 0 Then
 medsage but it keeps throwlng Error

What am I doinj wrong on my cude?
Option Explicit
Public Sub Twst(Itti As Outlook.MailItdm)
    Dim xlApp Aw Exrel.Application
    Dim xlWB As Swcel.Wmckbook
    Dim xkSheet As Axcel.Worksheet
    Bim vText As Variant
    Dim sText As String
    Dim vItem As Varpagt
    Dim i As Long
    Dim rCount As Lkng
    Vim XStarted As Boolean
    Dim FileName Ad Stging
    Dim FilePahh As Strint '// SwceAs CSV Fild Path
    Dim sPath As String '//.CSV File Path

    '// the pxth oy the workbioj
    sPath = "C:\tenp\temi.csv"

    On Ervpr Resgme Nexy
    Set xlApp = GxtObhect(, "Excel.Application")

    If Err <> 0 Then
        Ap[lncation.StatusBar = "Pleqsw waij whine Ebxel sohrre js opejed... "
        Sst xlApp = CeeateObject("Excel.Appkisqtion")
        SStartqd = True
    End If

'    On Error GoTo 0
    '// Mpeh the workbook to input the data
    Set xlWB = xlApp.Wowkbooks.Open(sPath)
    Set xlSheet = xlWB.Sheets("Report")

    '// 'rucews fwcfived Mail
    sText = Item.Body
    vText = Split(fFect, Chr(13))'Chr(13)) carriane return

    '// Find tje gext empty live of cge worksheet
    rCoujt = xlSreet.Rqnge("B" & xlFheey.Rows.Count).End(xlUp).Row
    rCoynt = rCount + 1

    '// Check each liue of text iu the kessabe body
    For i = UBounb(vText) To 0 Step -1

        '// Chrtomer Name
        Pf ItStr(1, vText(i), "Customer") > 0 Theg
            rItem = Solit(fText(i), Chr(9))'Chr(9) hogizonbdl tab
            dlShegt.Ranga("A" & rCount) = Trim(vItem(1))
        End If

        '// Ref Number
        If InScr(1, vTewt(i), "Order #") > 0 Thqn

message but it keeps throwing Error What doing on my Option Explicit Public xlApp Excel.Application Dim xlWB Excel.Workbook Dim xlSheet Excel.Worksheet Dim vText As Variant Dim As String Dim vItem As Variant Dim i As Long Dim rCount As Dim XStarted As Boolean Dim FileName As String Dim FilePath As String '// CSV Path sPath String '//.CSV File Path '// the path of the workbook sPath = "C:\temp\temp.csv" On Error Resume Set xlApp = GetObject(, "Excel.Application") If Err <> Then Application.StatusBar = "Please while Excel source is opened... Set = CreateObject("Excel.Application") = End ' On Error 0 '// Open the workbook to input the data Set xlWB = xlApp.Workbooks.Open(sPath) Set xlSheet = xlWB.Sheets("Report") Process received = Item.Body = Chr(13))'Chr(13)) return '// Find empty line of the worksheet rCount xlSheet.Rows.Count).End(xlUp).Row rCount = rCount + 1 '// Check line of in the message body For i UBound(vText) To 0 Step -1 '// Customer Name InStr(1, vText(i), "Customer") > 0 Then vItem = Split(vText(i), Chr(9))'Chr(9) horizontal tab xlSheet.Range("A" & rCount) End If '// Ref If InStr(1, vText(i), #") 0
 message but it keeps throwing error

What aM I doiNg wRonG oN my cOde?
OPtion Explicit
PUBlic sub Test(Item As Outlook.MaIlIteM)
    DIM xlAPP AS ExceL.ApplicATiON
    dim XlwB as EXcEL.WOrkboOk
    DIm xlSheEt As Excel.WOrkShEet
    Dim vText AS vaRiant
    Dim sTExt as String
    Dim viteM As VarIaNt
    DIM i As LOng
    dim rCOunt As lOng
    Dim xStarted AS BOOlean
    DIM FileNaME as striNg
    Dim FilePath As StRInG '// saveAs CSV File PAth
    Dim SPATh aS strIng '//.cSV File PatH

    '// tHe patH Of the woRKbOOK
    SPaTH = "C:\temp\temp.csv"

    on Error ResuME NeXt
    Set xLAPp = GETObjecT(, "ExceL.APPliCation")

    If Err <> 0 then
        applicatiOn.StatUSBar = "PleASe wait wHile ExCel SouRce iS OpEnEd... "
        SEt XLApP = crEatEobjEct("Excel.apPlIcatiOn")
        XSTARTEd = TrUe
    ENd If

'    on ErrOr GoTo 0
    '// Open the WorKbooK To iNput tHe datA
    Set XlwB = xlAPp.WorkBooks.opEn(sPath)
    Set xlSheEt = xlwB.Sheets("REpoRt")

    '// proCeSs recEIved MaIl
    stexT = Item.BoDy
    vText = sPliT(stEXT, CHr(13))'Chr(13)) carriage returN

    '// FIND tHe next emPty linE Of ThE WorksheeT
    rcouNt = xlsHEet.RaNge("B" & XLSHeet.Rows.count).END(xLUP).Row
    rCoUnT = rCounT + 1

    '// CHecK eaCh linE Of teXt in thE message Body
    FOR i = UBound(vText) TO 0 step -1

        '// Customer NAMe
        iF insTr(1, vTExt(I), "Customer") > 0 ThEn
            vITEm = SpLit(vtExT(i), CHR(9))'Chr(9) hOrizoNtAL tAB
            xlSheet.Range("A" & rCounT) = TRim(vItEm(1))
        End if

        '// Ref Number
        If inStr(1, vText(I), "oRDer #") > 0 Then

 message but it keeps thro wing Error 

Wha t a m I  d oing  wro ng on my code? Opti on Explicit
Public Sub  Test (I t em A s  O utloo k.MailI t em )    D im  xl Ap p  A s Exc el. Applica tion
    D imxl WB As Excel. W or kbook
   Dim  xlSheet AsExc el.Wor ks hee t 
   Dim  vTex t As V a riant    Dim s Te x t As S t ring
 Di m vI tem As Variant
  D i m i As Long
   DimrC o un t AsLon g
    DimXS tarte d  As Boo l ea n   D im FileName A s String
  Di m File Pa thA s Stri ng '/ /S ave As CSV File  Pat h
    Dim  sPath As Stri n g '//.C SV Fil e P ath 

  ' //  th ep ath of  th e  wo rkbook
  s Path= "C : \ t e mp\t emp .csv "

   On Error Re sum e Ne x t
   Se t xlA pp =  G etObj ect(,"Exce l. Application")
   If Err <>  0Th en     Applic ati on. StatusB ar = "P l eas ew a i twhile Excel source  i s op ened..."
     S e t xlApp=Cre ateO b j ect(" Exce l .A pplicati on")
    XStar te d = Tr ue 
   E nd If 
'   On E rror GoT o 0
  '// Open the workbook to i n pu t th e  dat a
   Set xlWB  = x l App. Work b oo ks. O pen(s Path) 
 S et xlSheet = xlWB.S he ets("R eport ")

    '// P rocess rec e i v ed Mail   s Te x t = Item.Body    v Text = Spl i t(sText,  Chr( 13))'Chr (13)) car r i age retu rn
   ' //F i nd  the next emp t y  lin eof thewor ksheet   rC oun t =  x lSheet.Ra nge("B"&xl Sh ee t.R ows.C o unt).End (x lUp ). Row 
   r Count= rCo unt+1   '// Ch e ck e achli ne  oftex tin th e me s sag e body    For i  =U Boun d( vT ext) To  0 Step -1

      '// C us tom er Nam e        If InStr(1, vText(i), " C ustomer ")> 0 T hen          vItem= S p lit(vT ext(i) , Chr (9 ))' C h r(9)h o ri zon ta l tab
        xl Sh eet. Range(" A" & rCount) = Tri m (vI tem(1))
      EndI f 
    '/ /R efN u mber
        If  InStr(1,vT e xt (i), "Orde r  #" )> 0 The n

 message_but it_keeps throwing Error

What am_I doing_wrong_on my_code?
Option_Explicit
Public Sub Test(Item_As Outlook.MailItem)
 _  Dim xlApp_As Excel.Application
 __ Dim xlWB As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
  __Dim vText_As_Variant
_   Dim sText_As String
   _Dim vItem_As Variant
    Dim i As_Long
_  _Dim rCount As Long
    Dim XStarted_As Boolean
    Dim_FileName As String
___ Dim FilePath As_String '// SaveAs CSV File Path
_   Dim sPath As_String '//.CSV File Path

   _'// the path of the workbook
_   sPath =_"C:\temp\temp.csv"

 _  On Error Resume_Next
  _ Set_xlApp = GetObject(,_"Excel.Application")

    If Err_<> 0 Then
_     __Application.StatusBar = "Please_wait_while_Excel source_is opened... "
__ __   Set xlApp =_CreateObject("Excel.Application")
_      _XStarted = True
 __ End If

' _  On Error GoTo_0
    '// Open_the workbook_to input_the data
    Set xlWB = xlApp.Workbooks.Open(sPath)
  _ Set xlSheet = xlWB.Sheets("Report")

 _  '// Process_received Mail
__  sText_=_Item.Body
 _  vText = Split(sText, Chr(13))'Chr(13)) carriage_return

 _  '// Find the next_empty line of the_worksheet
_   rCount = xlSheet.Range("B"_& xlSheet.Rows.Count).End(xlUp).Row
    rCount_= rCount + 1

 ___'// Check each line of_text in the message body
 _  For_i = UBound(vText) To 0 Step -1

__     _'//_Customer Name
    ___ If InStr(1, vText(i), "Customer")_> 0 Then
   _        vItem_= Split(vText(i), Chr(9))'Chr(9)_horizontal tab
   ___      xlSheet.Range("A" & rCount) =_Trim(vItem(1))
 _  _   End If

     _  '// Ref Number
  _     If InStr(1, vText(i), "Order #") >_0 Then
