visual basic What names are displayed in the list box by the following lines of code?

Dim oceans$()$ As String $=\{"$Atlantic$",$ "Pacific", "Indian", "Arctic", "Antartic"$\}$

Dim query $=$ From ocean in oceans

Where ocean.Length $=6$

Select ocean

For Each ocean As String In query

lstBox.Items.Add$($ocean$)$

Next