formato rut chileno en textbox visual 2010

[thunderhoof]

Estimado:
estoy recién comenzando a realizar una pequeña aplicación para registrar pacientes y camas de un pensionado en un hospital y necesito su ayuda o consejo para solucionar el tema, mas que la validación del rut, sino del formato del textbox con el rut chileno, he tenido varias validaciones tanto como para que me de el dv(dígito verificador) automáticamente o digitar el dv en el textbox.(esto lo hago todo en un textbox).-
muy bien el tema es el siguiente:
teniendo la caja de textbox, valida los rut, tanto con los 8 primeros dígitos y su dv, o con los 7 primeros dígitos con su dv.
bien, mi problema, y me pongo en el lado del usuario es validar o limitar el ingreso de datos a esta caja, aplico que en la caja de texto solo me valide la digitación de numero del 0-9 la "k" minúscula y "k" mayúscula y una cantidad de 10 caracteres como máximo(maxlength)
había pensado reemplazar el textbox por un maskedtextbox y darle la siguiente mascara 00000000-0, el cual me deja que valide ingresar solo numero y evito asi cualquier otro caracter que pueda truncar mi programa.-
pero con todo esto por ejemplo puedo digitar esto y se me caerá el programa:
ejemplo:
dentro del textbox -------- se cae el programa
1----9 se cae el programa
16136476- se cae el programa etc
16136-475- se cae el programa
y así una seguidilla de combinaciones que estén dentro de estos caracteres y que no cumplen con el modelo del rut, se va a caer, me entienden?
que tendría que mejorar, mi código de validación del rut, la caja de textboc o maskedtexbox?
y existe la posibilidad de que en maskedtextbox al dejarlo con la mascara 00000000-0 el cual se muestra ________-_ y al ingresar un rut con 8 dígitos ejem 16136476-2 cumple con la condición y valida el rut, pero al ingresar un rut de 7 dígitos ejemplo 5849756-8 me quedaría así: 5849756_-8
como hago que al ingresar ese rut automáticamente se mueva después del guion? y quedara 5849756-8
dejo mi código de validación de rut

Código:

 Module validarut2
 Public Function valida_rut(ByVal ci As String) As Boolean
 Dim cont, i, sum As Integer
 Dim car, digito, dig, rut As String
 Dim largo As Integer
 largo = Len(ci)
 cont = 2
 rut = Mid(ci, 1, largo - 2)
 digito = Mid(ci, largo, 1)
 For i = Len(rut) To 1 Step -1
 car = Mid(rut, i, 1)
 sum = sum + CInt(car) * cont
 cont = cont + 1
 If cont = 8 Then
 cont = 2
 End If
 Next
 dig = 11 - (sum Mod 11)
 If dig = 10 And UCase(digito) = "K" Then
 valida_rut = True
 ElseIf dig = 11 And digito = 0 Then
 valida_rut = True
 ElseIf CStr(dig) = digito Then
 valida_rut = True
 Else
 valida_rut = False
 End If
 End Function
End Module

Y Como llamo a la validacion con un boton

Código:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbuscar.Click
 Dim veri As Boolean
 If txtrut.Text <> "" Then
 veri = valida_rut(txtrut.Text)
 If veri = False Then
 MsgBox("Ingrese rut valido")
 txtrut.Text = ""
 ElseIf veri = True Then
 Dim consulta sql.....................

bueno espero buena onda y ojala me puedan ayudar con esta duda.-

atte

Esteban