How do I union array data?

Dim statements As String() = {"40+5-3", "5+10-2", "35+10-3"}
Dim results As String() = {"42", "13", "42"}
'Dim resultsStatements As String() = New String(Math.Min(statements.Length, results.Length) * 2 - 1) {}
'Ensure that the statements and results are of same length
If statements.Length <> results.Length Then
	Console.WriteLine("The number of Statements and number of Results should be equal")
	Return
End if
Dim resultsStatements As String() = New String(statements.Length * 2 - 1) {}
Dim i As Integer = 0
'While i < statements.Length AndAlso i < results.Length
While i < statements.Length 
	resultsStatements(i * 2) = results(i)
	resultsStatements(i * 2 + 1) = statements(i)
	i += 1
End While
For Each element As String In resultsStatements
	Console.WriteLine(element)
Next
'Output
'42
'40+5-3
'13
'5+10-2
'42
'35+10-3