Visual Basic - Tengo un pequeño gran problema

Hola me gustaria saber si me pueden ayudar a crear un validador de rut en visual basic, les agradeceria mucho si me pudieran contestar. Gracias

Function FileExists(RutaArchivo As String) As Boolean
If Dir(RutaArchivo, vbDirectory) <> "" Then
FileExists = True
Else
FileExists = False
End If
End Function