掛け算のプログラムを打ち込みたいのですが、繰上げの部分がうまくできません。
↓のは足し算のプログラム(端折ってますが)なんですが、
これからうまく掛け算のプログラムに変えられますか？

For i = 0 To L2 - 1
a = CInt(Mid(strA, L1 - i, 1))
b = CInt(Mid(strB, L2 - i, 1))

wa = kuriage + a + b

If wa <= 9 Then
ans = CStr(wa) & ans
kuriage = 0
Else
ans = Mid(wa, 2, 1) & ans
kuriage = 1
End If
Next i

If kuriage = 0 Then
If L1 = L2 Then
execPlus = ans
Else
execPlus = Mid(strA, 1, L1 - L2) & ans
End If

Exit Function
End If