Puedes Hacerlo de esta manera:
Código vb:
Ver originalPublic Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim numero as Integer
Dim pares as String
For numero = 2 To 100 Step 2
pares = pares & "*" & numero & ","
Next
MsgBox("Serie de numeros" & vbCrLf & pares)
End Sub
End Class