Private sub Command1_click()

Dim s1 As String, s2 As String, t As String, ch As String

Dim i As Integer

s1 = Text1.Text

i = Len(s1)

t = "": s2 = ""

Do While i > 0

    ch = Mid(s1, i, 1)

    If ch >= "0" And ch <= "9" Then

        t = ch + t

    Else

    s2 = s2 + t +，   ①

    t = ""

End If

i = i + 1    ②

Loop

s2 = s2 + t

Text2.Text = s2

End sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

      PRIVATE SUB FORM-------CLICK()

      S=0

DIM I AS INTEGER, S AS INTEGER

      FOR I= 2 TO 100 {#blank#}1{#/blank#}

           S=S+{#blank#}2{#/blank#}

      NEXT I

      PRINT S

      END SUB