нормально отработало
проверь референсы, если у вас дает ошибку
Private Sub paraclin()
Dim RETVAL() As String
Dim TXT As String
Dim i As Integer
TXT = "75,77,79,80,87,88,89,90,91,92"
RETVAL = Split(TXT, ",", -1, vbTextCompare)
For i = 0 To UBound(RETVAL)
MsgBox RETVAL(i)
Next i
End Sub
|