Need help in VBA programming (java translation)

[toqilula]

Hello VBA lovers



I Have wrote a simple code in java and i would very much like to be able to use it in ms access.
Could someone translate it in vba please.
I know it will be easy for most of the ppeople programming in VBA, cose it has only two loopes and some string variables.
So I would really much appreciate if you can help me.
here is the code writen i java:

Public class mod36 { 
Public static void main (String [] arg){ 
String _sIn = "GYM014650000005"; 
String sCharPool = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"; 
String[] sArrayIn = New String [15]; 
char c; 
For (int i = 0; i < 15; i++){ 
    c = _sIn.charAt(i); 
    sArrayIn[i] = Character.toString(c); 
} 
    int iSum = 0; 
    For (int iCount = 0; iCount < 15; iCount++) { 
        iSum = iSum + sCharPool.indexOf(sArrayIn[iCount].toUpperCase()) * (16 - iCount); 
} 
        int iCtrl = iSum % 36; 
        System.out.println ("rez: " + _sIn + sCharPool.substring(iCtrl, iCtrl + 1)); 
 }} 

[toqilula]

finally the solution. Hope someone else find it useful

Dim ssIn As String: ssIn = "GYM019680000005"
Dim sCharPool As String: sCharPool = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim i As Long, iCtrl As Long
Dim iSum As Long: iSum = 0
 
    For i = 1 To 15
       iSum = iSum + (InStr(sCharPool, Mid(ssIn, i, 1)) - 1) * (16 - (i - 1))
    Next i
 
    iCtrl = (iSum Mod 36)
 
    MsgBox "" & ssIn & Mid$(sCharPool, (iCtrl + 1), 1)