Visual Basic - Ayuda Dando Formato a un Rut

Hola compañeros, por favor necesito su ayuda, quiero formatear un Rut chileno de ésta forma 11.111.111-1, usando la función Format en el evento Lostfocus de VB 6.0.

He tratado de hacerlo yo mismo muchas veces, pero no me resulta...

Ojalá me puedan ayudar...

Gracias...

De cara no he podido hacerlo, tampoco se lo que es un rut, y en el inmediato he conseguido esto

a=123456789
print format(mid(a,1,len(a)-1),"#,###-")& mid(a,len(a),1)
12.345.678-9

Explicacion: formateo a desde la posicion 1 hasta la penultima, dejo al final un guion y añado el ultimo digito

Muchas gracias compañero, funcionó perfecto.

Hola... Super buen aporte.
Pero que pasa con los rut que solo tienen 1 dígito al comienzo?... Ej: 5.111.222-K

Si se rellena con un 0 al comienzo (ej: 05.111.222-K) no lo considera al estar como primer dígito a la izquierda por lo que arroja como si el rut no fuera válido.

Quedaré atento a sus comentarios.
De antemano muchas gracias.