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!

Pueba esta función y debes aplicarla como sigue:

dim rutx as long, dig as string
text1.text = 10333511

rutx = val(text1.text)
digx = DigitoRut(rutx)

text2.text = digx
Resultado = 6

Public Function DigitoRut(rutfun As Long) As String
Dim rx As Integer, ry As Integer
Dim dvy As String * 1
Dim rutfuncadena As String * 9
Dim rtot As Integer, rtot1 As Integer, difrut As Integer
rutfuncadena = Format(rutfun, "000000000")
rx = 1
ry = 5
rtot = 0
rtot1 = 0
Do While rx < 10
ry = ry - 1
ry = IIf(ry < 2, 7, ry)
rtot = rtot + Val(Mid$(rutfuncadena, rx, 1)) * ry
rx = rx + 1
Loop
rtot1 = Int(rtot / 11)
rtot1 = rtot - (rtot1 * 11)
difrut = 11 - rtot1
Select Case difrut
Case 11
dvy = "0"
Case 10
dvy = "K"
Case Else
dvy = difrut
End Select
DigitoRut = dvy
End Function

En Chile esta es la fórmula, espero que te funcione, te mando un saludo desde La Serena
FELIPE HENRIQUEZ ORDENES