Try the below(you can optimize it for sure!):
Public Function Index() As ActionResult
Dim genres As New List(Of Genre)
Dim oGenre1 As Genre
Dim oGenre2 As Genre
Dim oGenre3 As Genre
oGenre1 = New Genre()
oGenre2 = New Genre()
oGenre3 = New Genre()
oGenre1.Name = "Disco"
oGenre2.Name = "Jazz"
oGenre3.Name = "Rock"
genres.Add(oGenre1)
genres.Add(oGenre2)
genres.Add(oGenre3)
Return View(genres)
End Function