Problemas con aplicacion asp.net

[jlbautista]

Código Funcionando sin Problemas...
Será esto lo q necesitas???
Solo Agrega un Label, Un TextBox y un Button
Al Unico control q tendrías q cambiarle su ID sería el TextBox, para q en lugar q se llame TextBox1 se llame tbDNI

Código:

Partial Class CalculoNIF
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Label1.Text = "Ejemplo de Programación WebForm ASP .NET (VB)"
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        tbDNI.Text += CalcularNIF(tbDNI.Text, Nothing)
    End Sub

    Private Function CalcularNIF(ByVal resto As String, ByVal letra_NIF As String) As String
        If resto = "" Then
            MsgBox("No se ha introducido datos", MsgBoxStyle.Information)
            Return Nothing
            Exit Function
        ElseIf Len(resto) < 7 Then
            MsgBox("No se puede calcular el NIF porque faltan dígitos", MsgBoxStyle.Information)
            Return Nothing
            Exit Function
        ElseIf Not IsNumeric(resto) Then
            MsgBox("El dato introducido no es numérico", MsgBoxStyle.Information)
            Return Nothing
            Exit Function
        Else
            resto = Convert.ToInt32(resto Mod 23)
            Select Case resto
                Case 0
                    letra_NIF = "T"
                Case 1
                    letra_NIF = "R"
                Case 2
                    letra_NIF = "W"
                Case 3
                    letra_NIF = "A"
                Case 4
                    letra_NIF = "G"
                Case 5
                    letra_NIF = "M"
                Case 6
                    letra_NIF = "Y"
                Case 7
                    letra_NIF = "F"
                Case 8
                    letra_NIF = "P"
                Case 9
                    letra_NIF = "D"
                Case 10
                    letra_NIF = "X"
                Case 11
                    letra_NIF = "B"
                Case 12
                    letra_NIF = "N"
                Case 13
                    letra_NIF = "J"
                Case 14
                    letra_NIF = "Z"
                Case 15
                    letra_NIF = "S"
                Case 16
                    letra_NIF = "Q"
                Case 17
                    letra_NIF = "V"
                Case 18
                    letra_NIF = "H"
                Case 19
                    letra_NIF = "L"
                Case 20
                    letra_NIF = "C"
                Case 21
                    letra_NIF = "K"
                Case 22
                    letra_NIF = "E"
            End Select

            Return letra_NIF
        End If
    End Function
End Class