Visual Basic - Como hacer una validacion de rut? Urgente

Hola!, sabes necesito saber komo puedo hacer una validacion de rut, si tienes un ejemplo del kodigo ke debo usar te agradeceria mucho ya.. gracias! slds desde Chile!

Rut = 14336260 : Digito = X
donde:
X = rutdigito(Rut)

Bueno Espero te sirva shaolin.
' en un modulo
Function RutDigito(ByVal Numeros As Long) As String
Dim cuenta, suma, resto, digito As Integer
Dim dig As Currency
suma = 0
cuenta = 2
Do
dig = Numeros Mod 10
Numeros = Int(Numeros / 10)
suma = suma + (dig * cuenta)
cuenta = cuenta + 1
If cuenta = 8 Then cuenta = 2
Loop Until Numeros = 0
resto = suma Mod 11
digito = 11 - resto
Select Case digito
Case 10
RutDigito = "K"
Case 11
RutDigito = "0"
Case Else
RutDigito = Trim(Str(digito))
End Select
End Function