Вывести на экран натуральные числа от1 до 100 которые при деление на 4 дают в остатке 2 - VB (171793)

Private Sub Form_Load()
    Dim out As String
    Dim index As Integer
    Dim i As Integer
    For i = 1 To 100
            If i Mod 4 = 2 Then
                    out = out & i & ";"
                    index = index + 1
            End If
    Next
    MsgBox (out)
    MsgBox (index)
End Sub