Acho que é isto que deseja:

    Private Function Funcao() As IEnumerable(Of String)
        Yield "Teste"
        Yield "Teste2"
    End Function

[Coloquei no **GitHub** para referência futura][1].

[Documentação][2].


  [1]: https://github.com/maniero/SOpt/blob/master/VB.NET/Function/Yield.vb
  [2]: https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/yield-statementWT.mc_id=DOP-MVP-5002397