come posso risolvere il seguente problema? riferito a una label

System.InvalidCastException: Conversion from string "" to type 'Integer' is not valid.

problema riferito a questa porzione di codice

Dim a1 As Integer = label3.text

label3.text = a1 - (chgrnd.Next(1, a1))

nella label c'è un numero inizialmente