For i As Integer = 0 To (f1.Length - 1)
            For j As Integer = 0 To (f2.Length - 1)
                result(i + j + 1) = f1(i) * f2(j)
            Next
        Next
 
        Dim k As Integer = 0
        For i As Integer = 0 To (result.Length - 1)
            k = result.Length - 1 - i
            If result(k) > 9 Then
                result(k - 1) = result(k - 1) + result(k) \ 10
                result(k) = result(k) Mod 10
            End If
        Next

MfG DreamFlasher

I'm not perfect...yet! (MacGyver)
You know the story: Girl meets boy, girl changes boy's subroutines. (Janeway)
I'll be honest with you. My name's not Kirk. It's Luke Skywalker. (Jack O'Neill)