Ma la riga che mi segna in rosso è la seguente:
Dim IdCat As String = IdCatText.Text