Найти все делители числа 1234Язык Visual Basic 2010Пожалуйста посчитайте!!!

Sub Main()
    Dim i, n As Integer
    Dim s As String
    s = ""
    n = 1234
    For i = 1 To Int(n / 2)
        If n Mod i = 0 Then
            s = s + Str(i) + " "
        End If
    Next i
    MsgBox s
End Sub