Acho que é isto que deseja:
Private Function Funcao() As String Yield "Teste" Yield "Teste2" End Function
Documentação.