Laço de repetiçao

Pessoal, estou coletando dados do formulário para usar em um laço... para cada if verdadeiro eu gero uma linha e insiro num txt

opcao(1) = op1.Value
opcao(2) = op2.Value
opcao(3) = op3.Value
opcao(4) = op4.Value
opcao(5) = op5.Value

For i = 1 To 5
If opcao(i) = -1 Then
txtresultado.Value = labs.Value & ano.Value & "-" & mes.Value & "-" & i & hinicial.Value & resp.Value & hfinal.Value
End If
Next i

Para um "botão de opção" funciona, mas qdo quiser escolher dois "botões de opção" preciso que insira 2 linhas no mesmo txtresultado, mais ou menos assim:

1-2017-dezembro-2-08:00-12:00
3-2017-dezembro-2-08:00-12:00

Só não sei como pular linha entre uma volta do laço e outra...

Boas Bgnani.. Forceça-nos mais detalhes. se possivel poste um exemplo

Saudações

Harysohn

Coloque o vbCrLf no final, ficando assim:

Código:


For i = 1 To 5
If opcao(i) = -1 Then
txtresultado.Value = labs.Value & ano.Value & "-" & mes.Value & "-" & i & hinicial.Value & resp.Value & hfinal.Value & vbCrLf
End If
Next i


Irá pular a linha.

Att.