Dim rcvNum As String
rcvNum() = Split(Text8, ", ")
If vrNum = rcvNum() Then

--------------------------------------------------------------------------------
nella text8 inserisco esempio 26,44
pero non va da errore

PREVISTA matrice
In questo codice ci sono minimo 3 errori; ecco le correzioni:

1) dim rcvnum () as string
2) rcvnum = split(text8,", ")
3) vrnum = rcvnum(index) then 'non hai specificato QUALE elemento della matrice devi considerare, forse te volevi controllare tutta la matrice ma NON si fa così..

ciao