Attribute VB_Name = "testloop1"
Sub ƒeƒXƒg()
    Dim sum As Integer
    Dim x As Integer

    sum = 0
    x = 1

    Do While x <= 100
        sum = sum + x

        x = x + 1
    Loop

    Range("A1").Value = sum

End Sub