[Resolvido]Validação de Renavam

Olá a todos, gostaria de saber se alguém possui alguma função para validar o Renavam, desde já agradeço.

Não cheguei a testar...Eis:

Dim Renavam As String
Dim Numeros(5) As String
Dim I, J As Integer
Dim Soma, Valor As Single
Dim Digito As Integer

J = 0

Renavam = txt_renavam.Text

Renavam = Replace(Renavam, "-", "")

For I = 1 To 5
Numeros(I - 1) = Mid(Renavam, I, 1)
Next
For I = 5 To 2 Step -1
Soma = Soma + (Numeros(J) * I)
J = J + 1
Next

Valor = Soma Mod 11

If ((Valor = 1) Or (Valor = 0) Or (Valor >= 10)) Then
Digito = 0
Else
Digito = Valor
End If

Label2.Caption = Digito & " " & Numeros(4) & " " & Soma & " " & Digito

If (Digito = Numeros(4)) Then
MsgBox ("Renavam nº " & Renavam & " Valido!")
Else
MsgBox ("Renavam nº " & Renavam & " Invalido!")
End If






Cumprimentos.

Olá, e muito obrigado pela atenção mas já havia testado esse código e não funciona.