Dim arr1 As String() arr1 = Me.TextBox1.Text.Split(",") MessageBox.Show(arr1(0) & “:” & arr1(1) & “:” & arr1(2)) 字样就可以完成