Private Sub Command1_Click()
Dim i As Long
Dim arr() As String
Dim Ret As String

Ret = "1:1:10:1:121:3:1190:274:779.00:750:16:16:11.00:::0.50:::11.00:8018:76:10.15:5.1:17.48:0.54:0.44::::1:11.00:0:0:0:0:::"
arr = Split(Ret, ":")
End Sub