The

[L Fish]

New Post Test

[si_the_geek]

Welcome to VBForums

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.

[L Fish]

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

[sessi4ml]

[code]
debug.print code
/[code]

[si_the_geek]

[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.

[sessi4ml]

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

[sessi4ml]

[code] debug.print code /[code]

[sessi4ml]

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

[sessi4ml]

[code]
debug.print code
/[code]

[sessi4ml]

lol, I am not seeing something

[sessi4ml]

debug.print code

[sessi4ml]

       stupid syntax

[sessi4ml]

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

[sessi4ml]

[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 ]

[sessi4ml]

        '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

[acourt]

what code