Resolva se for capaz

Lendo o livro me deparei com este exercício. Temos algumas coisas que podemos utilizar, mas uma única vez. Ou seja, cada comparação ou atribuição de valores, após ser adicionado ao código, não poderá ser utilizado novamente.

Abaixo estão as opções que você poderá utilizar para fazer com que esse código resulte na mensagem: "a noise annoys an oyster".

sFrase = sFrase & " "
sFrase = sFrase & "a"
sFrase = sFrase & "n"
sFrase = sFrase & "an"
sFrase = sFrase & "noys "
sFrase = sFrase & "oise "
sFrase = sFrase & " oyster"
sFrase = sFrase & "annoys"
sFrase = sFrase & "noise"

iCont > 0
iCont < 1
iCont > 1
iCont > 3
iCont < 4

iCont = iCont + 1
iCont = iCont + 2
iCont = iCont - 2
iCont = iCont - 1

Private Sub Form_Load()
   Dim iCont As Integer
   Dim sFrase As String
  
   sFrase = ""
   Do While [...]
  
       [...]
  
       If iCont < 1 Then
           [...]
       End If
                  
       [...]
                  
       If [...] Then
           [...]
       End If
      
       If iCont = 1 Then
           [...]
       End If
      
       If [...] Then
           [...]
       End If
      
       [...]
   Loop
   [...]
End Sub