Sub main()
Dim RedPod As String
Dim BrojVar As Integer
Dim ArrPodaci
Dim Arr() As String
Dim I As Integer

RedPod = "+CRLP: 61,61,78,6"
Vrati_Podatak RedPod, BrojVar, ArrPodaci
Arr = Split(ArrPodaci, ",")
For I = 0 To BrojVar
MsgBox Arr(I)
Next I
End Sub

Sub Vrati_Podatak(UlazniPodatak As String, Optional BrojVar As Integer = 0, Optional ArrPodaci)
Dim Poz As Integer, Duzina As Integer, I As Integer
Dim PrviDio As String, DrugiDio As String, Skupa As String
Dim Znak As String
If Left(UlazniPodatak, 1) = "^" Or Left(UlazniPodatak, 1) <> "+" Then GoTo Kraj
Poz = InStr(1, UlazniPodatak, ":", vbBinaryCompare)
If Poz = 0 Then GoTo Kraj
PrviDio = Mid(UlazniPodatak, 2, Poz - 2)
DrugiDio = Mid(UlazniPodatak, Poz + 1)
Skupa = PrviDio & "," & DrugiDio
Duzina = Len(UlazniPodatak) - 1
BrojVar = 0
    For I = 1 To Duzina
    Znak = Mid(Skupa, I, 1)
        If Znak = "," Then
        BrojVar = BrojVar + 1
        End If
    Next I
ArrPodaci = Skupa
Izlaz:
Exit Sub
Kraj:
ArrPodaci = ""
BrojVar = 0
GoTo Izlaz
End Sub