Calculador de letra del NIF de Ju@nK

Introducir el nº del DNI       

Para calcular la letra del NIF, introducir el nº del DNI (sin puntos) y pulsar Intro o Calcular.

Código Utilizado

 Sub Button1_Click(sender As Object, e As EventArgs)
Dim tmp As Long
dim DNI AS LONG
dim LetraNIF as string
DNI = CInt(val(TextBox1.Text))
tmp = CInt(DNI - (Int(DNI / 23) * 23))
Select Case tmp
Case 0, 23: LetraNIF = "T"
Case 1: LetraNIF = "R"
Case 2: LetraNIF = "W"
Case 3: LetraNIF = "A"
Case 4: LetraNIF = "G"
Case 5: LetraNIF = "M"
Case 6: LetraNIF = "Y"
Case 7: LetraNIF = "F"
Case 8: LetraNIF = "P"
Case 9: LetraNIF = "D"
Case 10: LetraNIF = "X"
Case 11: LetraNIF = "B"
Case 12: LetraNIF = "N"
Case 13: LetraNIF = "J"
Case 14: LetraNIF = "Z"
Case 15: LetraNIF = "S"
Case 16: LetraNIF = "Q"
Case 17: LetraNIF = "V"
Case 18: LetraNIF = "H"
Case 19: LetraNIF = "L"
Case 20: LetraNIF = "C"
Case 21: LetraNIF = "K"
Case 22: LetraNIF = "E"
Case Else: LetraNIF = "Error"
End Select
Label2.Text = "La letra es: '' " & LetraNIF & _
" '' y el nif completo es: '' " & _
format(DNI,"00000000") & LetraNIF & " ''"
End Sub