Compile Error : Syntax Error

[masond3]

Hey All

I am very new to VBA so please be patient

within my VBA i have put the following logic

If Mid(Str1, 3, 2) = "79" Or _
Mid(Str1, 3, 2) = "81" Or _
Mid(Str1, 3, 2) = "82" Or _
Mid(Str1, 3, 2) = "85" Or _
Mid(Str1, 3, 2) = "88" _

Then



However when ever i run it , il get the following error message “

Any ideas?

[masond3]

The full vba is



Sub extractDetail()

Open "C:\Temp\Ecom.txt" For Input As 1

Dim Str1 As String
Dim rowx As Long
Dim merchant As String
Dim merchantName As String



rowx = 9

While Not EOF(1)


Line Input #1, Str1

If Mid(Str1, 1, 8) = "MERCHANT" Then
Sheets("Low Level Results").Cells(rowx, 1).Value = Mid(Str1, 18, 12)
Sheets("Low Level Results").Cells(rowx, 2).Value = Mid(Str1, 57, 30)

merchant = Mid(Str1, 18, 12)
merchantName = Mid(Str1, 57, 30)


While Mid(Str1, 1, 5) <> "TOTAL"

If Mid(Str1, 3, 2) = "79" Or _
Mid(Str1, 3, 2) = "81" Or _
Mid(Str1, 3, 2) = "82" Or _
Mid(Str1, 3, 2) = "85" Or _
Mid(Str1, 3, 2) = "88" _

Then


With Sheets("Low Level Results")

.Cells(rowx, 1).Value = merchant
.Cells(rowx, 2).Value = merchantName
.Cells(rowx, 3).Value = Mid(Str1, 3, 2) ' Product
.Cells(rowx, 4).Value = Mid(Str1, 8, 12) ' Fully Secure tran count
.Cells(rowx, 5).Value = Mid(Str1, 9, 7) ' Fully Secure amount
.Cells(rowx, 6).Value = Mid(Str1, 9, 7) ' Merchant Secure tran count
.Cells(rowx, 7).Value = Mid(Str1, 9, 7) ' Merchant Secure amount
.Cells(rowx, 8).Value = Mid(Str1, 9, 7) ' Non-Secure tran count
.Cells(rowx, 9).Value = Mid(Str1, 9, 7) ' Non-Secure amount
.Cells(rowx, 10).Value = Mid(Str1, 9, 7) ' Total E-Com tran count
.Cells(rowx, 11).Value = Mid(Str1, 9, 7) ' Total E-Com amount

rowx = rowx + 1






End With

End If


Line Input #1, Str1



Wend

End If


Wend




Close #1



End Sub

[Fotis1991]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[masond3]

Please ignore, this has now been resolved