Salve a tutti, sto cercando di risolvere un problema riguardo una datagrid, ma non ci riesco..

Posto il codice

codice:
Sub coloreasd() 
     Dim numero As Byte 
     Dim pipo As String

     If dgvTabella.CurrentRow.Cells(9).Value.ToString = "" Then
          numero = 0 
     Else 
          pipo = dgvTabella.CurrentRow.Cells(9).Value.ToString 
          MsgBox(pipo) 
     End If 
End Sub
In pratica se seleziona una riga devo avere in un msgbox il valore di "pipo", ma quando avvio mi compare un errore che mi dice:"Riferimento a un oggetto non impostato su un'istanza di oggetto."

cosa dovrei fare per risolvere?
grazie in anticipo a tutti