Sub problem
Dim myvar As Int
Dim g As String
g = "01"
myvar = g.SubString2(0,2)
myvar = NumberFormat2(myvar,1,0,0,False) '<=== redifining the integer value after string converting solves the problem
Log("G string value = "&g)
Log("Local int myvar = "&myvar )
.....
'_myvar = (int)(Double.parseDouble(_g.substring((int) (0),(int) (2))));
'_myvar = (int)(Double.parseDouble(anywheresoftware.b4a.keywords.Common.NumberFormat2(_myvar,(int) (1),(int) (0),(int) <== '(0),anywheresoftware.b4a.keywords.Common.False)));