Visual Basic - rutina validadora del RUT

Les agradeceria muchisimo, si alguien tiene el codigo fuente de la rutina validadora del RUT. Esto en especial para mis compatriotas chilenos. Se que no es algo muy dificil, pero en estos momentos no me recuerdo exactamente como es y no se por donde empezar

Gracias y espero vuestra ayuda

Public Function Val_Rut(ByVal Rut As Long) As String
Dim Digito As Integer
Dim indice As Integer
Dim Factor As Integer
Dim suma As Integer
suma = 0
Factor = 2

For indice = Len(Rut) To 1 Step -1
suma = suma + Val(Mid(Rut, indice, 1)) * Factor
Factor = Factor + 1
If Factor > 7 Then Factor = 2
Next indice

Digito = 11 - (suma Mod 11)

Select Case Digito
Case 10
Val_Rut = "K"
Case 11
Val_Rut = "0"
Case Else
Val_Rut = Trim$(Str$(Digito))
End Select
End Function