risolto così:

codice:
Dim parolachiave As String 
Dim passatempo As Byte

If dgvTabella.CurrentRow.Cells(9).Value <> "" Then
     parolachiave = dgvTabella.CurrentRow.Cells(9).Value.ToString()
Else
     parolachiave = "vuoto"
End If
ho solamento sostituito pipo con parolachiave e numero con passatempo..

ciaoo