The

New Post Test

Welcome to VBForums :wave:

Your original post worked, it just wasn't shown immediately because our "new member" filter decided that it needed to be manually approved. You can find it here: http://www.vbforums.com/showthread.php?t=609980

Your copy of it was put on hold by the filter too, but I have deleted it because it was a duplicate.

Thanks. I was trying to figure out what was going on with my posts.

[code]
debug.print code
/[code]

Quote:

---

Originally Posted by sessi4ml

[code]
debug.print code
/[code]

---

The tag syntax is:
[code] code here [/code]

Alternatively, just select the code and press the "Code" button above the reply area.

Code:

---

<script type="text/javascript">
<!--
    alert("Hello world!");
//-->
</script>

---

[code] debug.print code /[code]

[code]debug.print "test"/[code]

[code]
debug.print code
/[code]

lol, I am not seeing something

Code:

---

debug.print code

---

Code:

---

      stupid syntax

---

Code:

---

Private Sub Command2_Click()
Dim UPC(12) As Integer: Dim intOdd As Integer: Dim intEven As Integer
Dim i As Integer: Dim intTotal As Integer
' Check Scan length


    If Len(Text1.Text) <> 12 Then Text2.Text = "Bad Scan, beep": Exit Sub
    For a = 1 To 12
        UPC(a) = Mid(Text1.Text, a, 1)
    Next a

---

[CODE ] 'Add together the value of all of the digits in odd positions (digits 1, 3, 5, 7, 9 and 11
' Multiply that number by 3
intOdd = (UPC(1) + UPC(3) + UPC(5) + UPC(7) + UPC(9) + UPC(11)) * 3
[/CODE ]

Code:

---

        'Add together the value of all of the digits in odd positions (digits 1, 3, 5, 7, 9 and 11
            ' Multiply that number by 3
intOdd = (UPC(1) + UPC(3) + UPC(5) + UPC(7) + UPC(9) + UPC(11)) * 3

---

Code:

---

what code

---