Bug? For Each Loop

    Log("***  for each  ***")
    For Each ss As String In returnStrings
        Log(ss)
    Next
    Log("***  for loop  ***")
    For tmp = 0 To returnStrings.Length - 1
        Log(returnStrings(tmp))
    Next
    Log("---Done---")

Sub returnStrings() As String()
    Dim arrString(4) As String
    arrString(0) = "first"
    arrString(1) = "second"
    arrString(2) = "penultimate"
    arrString(3) = "lastOne"
    Return arrString
End Sub

    Dim arrString(4) As String = Array As String("first","second","penultimate","lastOne")

Sub AppStart (Args() As String)
     Dim arrString() As String = Array As String("first","second","penultimate","lastOne")
   
    Log("***  for each  ***")
    For Each ss As String In arrString
        Log(ss)
    Next
    Log("***  for loop  ***")
    For tmp = 0 To arrString.Length - 1
        Log(arrString(tmp))
    Next
    Log("---Done---")


    Dim x() As String = returnStrings
    For Each ss As String In x
        Log(ss)
    Next
    Log("***  for loop  ***")
    For tmp = 0 To x.Length - 1
        Log(x(tmp))
    Next
    Log("---Done---")

    For Each ss As String In returnStrings
        Log(ss)
    Next
    Log("***  for loop  ***")
    For tmp = 0 To returnStrings.Length - 1
        Log(returnStrings(tmp))
    Next
    Log("---Done---")
   
End Sub

Sub returnStrings() As String()
    Dim arrString(4) As String
    arrString(0) = "first"
    arrString(1) = "second"
    arrString(2) = "penultimate"
    arrString(3) = "lastOne"
    Return arrString
End Sub

    Log("*** test for each String ***")
    Dim arrString() As String = returnStrings
    For Each ss As String In arrString
        Log(ss)
    Next
   
    Log("***  test for each  Object***")
    For Each ii As Object In arrString
        Log(ii)
    Next