Bom dia pessoal.
Consegui finalmente resolver o problema.
Abaixo vai o codigo para ajudar quem precisar
o codigo que eu postei acima primeiro:
If Registro = HD Then
MsgBox "Valores iguais", VbOkOnly
Else
MsgBox "Valores diferentes", VbOkOnly
Endif
agora o codigo corrigido:
RegistroCorrigido = Left$(Registro, InStr(1, Registro, Chr$(0)) - 1)
If Registro = HD Then
MsgBox "Valores iguais", VbOkOnly
Else
MsgBox "Valores diferentes", VbOkOnly
Endif
A primeira linha é que é a correção.
Agradeço todas as idéias que foram dadas, garanto a todos que foram uteis, e que todas foram testadas ao extremo.
Valewz
