Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim i As Long
a = "1234i5tr6u75u9ir8ew9w"
b = Left$(a, 4)
For i = 1 To Len(a) / 4
b = b & " " & Mid$(a, i * 4 + 1, 4)
Next i
text1.text =b
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024