Intenta comentando (o eliminando) el sig. fragmento del código:
Código:
Protected Sub Calcular_NIF(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
A propósito, mandas dos parámetros en la llamada a tu function Calcular_NIF(
resto,letraNIF)
'resto' ya la tienes definida de tipo Integer, pero donde le dices q valor tome???
y lo mismo con letraNIF...
Aparte, en la definición de tu Function le dices q recibes un String y un Boolean
Código:
Protected Function Calcular_NIF(ByVal tbDni As String, ByVal retornoLetra As Boolean) As String
...
Creo q por ahi anda fallando la lógica, brother...
Animo