Por ahí hubieras empezado, aquí hice un poco de programación (todo va en el botón verificar)
// Creamos algunas variables locales de tipo Entero para almacenar los dígitos de posición par e impar
Integer li_par1, li_par2, li_par3, li_par4
Integer li_imp1, li_imp2, li_imp3, li_imp4, li_imp5
// Variables para almacenar la suma de los digitos de posicion par, impar, etc
Integer li_sp, li_si, li_st, li_verificador, li_ds
// Almacenamos el codigo verificador, que es el ultimo digito de la cedula
li_verificador = Integer( Right( sle_cedula.Text, 1))
// almacenamos los digitos de posicion par
li_par1 = Integer( Right( Left( sle_cedula.Text, 2), 1))
li_par2 = Integer( Right( Left( sle_cedula.Text, 4), 1))
li_par3 = Integer( Right( Left( sle_cedula.Text, 6), 1))
li_par4 = Integer( Right( Left( sle_cedula.Text, 8), 1))
// almacenamos los digitos de posicion impar
li_imp1 = Integer( Left( sle_cedula.Text, 1))
li_imp2 = Integer( Right( Left( sle_cedula.Text, 3), 1))
li_imp3 = Integer( Right( Left( sle_cedula.Text, 5), 1))
li_imp4 = Integer( Right( Left( sle_cedula.Text, 7), 1))
li_imp5 = Integer( Right( Left( sle_cedula.Text, 9), 1))
// Los digitos de posicion par, se suman
li_sp = li_par1 + li_par2 + li_par3 + li_par4
// los digitos de posicion impar se multiplican por 2If li_imp1 * 2 > 9 Then
// si el resultado es mayor que 9, se le resta 9
li_imp1 = (li_imp1 * 2) - 9
Else
// de caso contrario se almacena el digito impar multiplicado por 2
li_imp1 = li_imp1 * 2
End If
If li_imp2 * 2 > 9 Then
li_imp2 = (li_imp2 * 2) - 9
Else
li_imp2 = li_imp2 * 2
End If
If li_imp3 * 2 > 9 Then
li_imp3 = (li_imp3 * 2) - 9
Else
li_imp3 = li_imp3 * 2
End If
If li_imp4 * 2 > 9 Then
li_imp4 = (li_imp4 * 2) - 9
Else
li_imp4 = li_imp4 * 2
End If
If li_imp5 * 2 > 9 Then
li_imp5 = (li_imp5 * 2) - 9
Else
li_imp5 = li_imp5 * 2
End If
// suma de todos los digitos de posicion impar
li_si = li_imp1 + li_imp2 + li_imp3 + li_imp4 + li_imp5
// suma tota, suma de pares + suma de impares
li_st = li_sp + li_si
// se calcula la decena superior
li_ds = (Integer( Left( String( li_st), 1)) + 1) * 10
// si el codigo verificador es igual a la resta de la decena superio menos la suma total
If li_verificador = (li_ds - li_st) Then
// si es igual, entonces la cedula es correcta
MessageBox("Resultado", "La cedula es verdadera")
Else
// de caso contrario, es incorrecta
MessageBox("Resultado", "La cedula es incorrecta")
End If
Eso seria todo, si tienes más dudas, me las haces saber.