¿Como validar Rut?

[cristiandm_gb]

HOLA A TODOS... YA HAN PASADO UNOS AÑOS PERO ESPERO QUE ALGUIEN ME RESPONDA Y ME PUEDA AYUDAR.. RESULTA QUE EL CODIGO ME FUNCIONA PERFECTO, PERO SIEMPRE Y CUANDO EL RUT TENGA LOS 8 NUMEROS FIJOS POR EJEMPLO: 16830785 -> 8 DIGITOS , 16830785-3

EN CAMBIO CUANDO TIENE MENOS COMO 5646537-5 EL PROGRAMA SE ME CAE Y ME TIRA UN ERROR EN ESTA PARTE DEL CODIGO:

For i As Integer = 8 To 1 Step -1
iNum = Mid(ElNumero, i, 1) --> ACA SE CAE

NO SE CONTROLO InvalidCastExeption
La conversion de la cadena "-" en el tipo Integer no es valida.
y si le pongo el rut sin el "-" me dice rut incorrecto.

Suma += iNum * Multiplicador
Multiplicador += 1
If Multiplicador = 8 Then Multiplicador = 2


ALGUIEN ME PUEDE AYUDAR PORFAVORR.. SE LOS AGREDECERIA MUCHO.. ESTOY ATENTO A CUALQUIER TIPO DE RESPUESTA. SALUDOS