Sub Main()
Dim Contador As Integer = 1
Dim Saida As String = ""
While Contador <= 10
Saida += " - " + Contador.ToString
Contador += 1
End While
MsgBox(Saida)
End Sub** Agora, usando o FOR **
Sub Main()
Dim Contador As Integer = 1
Dim Saida As String = ""
For i As Integer = 1 To 10
Saida += " - " + i.ToString
Next
MsgBox(Saida)
End Sub