Need to convert this code to VB

From: deks (matt_at_stenning.com.au)
Date: 05/20/04 

Date: 20 May 2004 01:48:09 -0700

Hi there,
I urgently need to convert this code snippet to vb. Im not even positive it cobol...
Any help would be greatly appreciated.

IF REGNO-DIGIT-DIV ( W-COUNT ) NOT = SPACE
            SUBTRACT 1 FROM W-COUNT
      ELSE
      ADD 1 TO W-COUNT
      IF REGNO-DIGIT-DIV ( W-COUNT ) = 'T' OR 'V'
                  ADD 1 TO W-COUNT GIVING W-COUNT2
                  IF REGNO-DIGIT-DIV (W-COUNT2) IS NUMERIC
                              MOVE REGNO-DIGIT-DIV (W-COUNT) TO
                                    REGNO-DIGIT-DIV ( 1 )
                              MOVE SPACES TO REGNO-DIGIT-DIV ( 2 )
                              MOVE 3 TO W-COUNT
                              PERFORM F000-FILL-IN-SPACE
                              UNTIL W-COUNT = W-COUNT2
                         MOVE 0 TO W-COUNT
                  ELSE
                              MOVE 0 TO W-COUNT
      ELSE
                        MOVE 0 TO W-COUNT

COMPUTE W-TOTAL = ( VALUE-DIGIT (1) + VALUE-DIGIT (4) + (
VALUE-DIGIT (2) + VALUE-DIGIT
                                          (5) ) * THREE + ( VALUE-DIGIT (3)
+ VALUE-DIGIT (6) ) * SEVEN )
         So our value will be . (22 + 3 +((36+2) * three) + ((32 + 8 ) *
seven )) = 419

DIVIDE W-TOTAL BY THIRTY-SEVEN GIVING W-DIV
ADD 1 TO W-REMAINDER

I can understand most of the syntax but there are a few keywords i am stuck with.
Thanks in advance,

deks..