老老实实写代码
Dim s As String = "ab"Dim str As String = ""For i As Integer = 1 To 5 str &= sNextmsgbox(str)