...
        Dim varFull() As String
...
'Inscriem datele primite in Array m_var
            For cnt = 0 To UBound(varFull) - 1
                m_var(cnt) = varFull(cnt)
            Next cnt
...

...
        v1 = m_var(1)
        v2 = m_var(2)
        v3 = m_var(3)
        v4 = m_var(4)
        v5 = m_var(5)
        v6 = m_var(6)
        v7 = m_var(7)
        v8 = m_var(8)
        v9 = m_var(9)
        v10 = m_var(10)
        v11 = m_var(11)
        v12 = m_var(12)
        v13 = m_var(13)
        v14 = m_var(14)
        v15 = m_var(15)
        v16 = m_var(16)
...

strRes = "DO " & Routine & "~" & Par & "~" & "R" _
        & "~" & strLenAll & "~" & strLen1 & "~" & strLen2 _
        & "~" & strLen3 & "~" & strLen4 & "~" & strLen5 _
        & "~" & strLen6 & "~" & strLen7 & "~" & strLen8 _
        & "~" & strLen9 & "~" & strLen10 & "~" & strLen11 _
        & "~" & strLen12 & "~" & strLen13 & "~" & strLen14 _
        & "~" & strLen15 & "~" & strLen16 & Chr(0) & str & vbCrLf
        GTMCmd.SendData(strRes)

        v1 = m_var(1)
        v2 = m_var(2)
        v3 = m_var(3)
        v4 = m_var(4)
        v5 = m_var(5)
        v6 = m_var(6)
        v7 = m_var(7)
        v8 = m_var(8)
        v9 = m_var(9)
        v10 = m_var(10)
        v11 = m_var(11)
        v12 = m_var(12)
        v13 = m_var(13)
        v14 = m_var(14)
        v15 = m_var(15)
        v16 = m_var(16)

    Public Function DoRoutine(ByVal Routine As String, ByRef arParams() As String) As Object
        Dim Par As Integer
        Dim str As String = ""
        Dim iLenAll As Long
        Dim strRes As String
        Dim strLengths As String = ""
        Dim iLen As Integer

        On Error Resume Next
        Par = 0
        iLenAll = 0

        For Each spar As String In arParams
            iLen = 0
            If Not IsNothing(spar) Then
                Par = Par + 1
                str = str & spar & Chr(0)
                iLen = Len(spar)
            End If
            iLenAll = iLenAll + iLen
            strLengths = strLengths & "~" & iLen
        Next
        strRes = String.Format("DO {0}~{1}~R~{2}{3}~{4}~{5}{6}",
                               New Object() {Routine, Par, iLenAll, strLengths, Chr(0), str, vbCrLf})

        GTMCmd.SendData(strRes)

        'Astept cand vin toate datele si insemn evenimentul
        Do Until m_blnHeaderArrived
            Application.DoEvents()
        Loop
        For iLen = 1 To m_var.Length
            arParams(iLen) = m_var(iLen)
        Next
        Return m_var(0)
        Call Reset()

    End Function