このvbscriptのソースコードの解説をお願いします。
どんな数値がきても足し算を成立させるソースコードを書きたいです。
Y = Len(B)
i = 0
For i = 0 To Y - 1
A(i) = Mid(B,i+1,1)
z = i + 1'後ろのやつ
For j = 0 To i - 1 '前のやつ
x = CStr(x) + CStr(A(j))
Next
Next
For k = z To Y - 1
X2 = CStr(X2) + CStr(A(k))
Next
For k = z To Y - 1
X2 = CStr(X2) + CStr(A(k))
Next
ans = CDbl(x) + CDbl(X2)