Bom dia Amigos como já me identifiquei antes sou novato e estou aprendendo com as apostilas e dicas do vbweb.

Bom encontrei um codigo que verifica erros e funciona bem so que ele so verifica a primeira linha a segunda em diante mesmo que esteja certo ele conta como erro.

veja:

Private Sub RText_KeyUp(KeyCode As Integer, Shift As Integer)
 Dim Palavra1, Palavra2 As String
Dim I, J, Verros As Integer
 Verros = 0
    Palavra1 = Label1.Caption
    Palavra2 = RText.Text
    I = Len(Trim(Palavra2))
        For J = 1 To I
        If Mid(Palavra2, J, 1) <> Mid(Palavra1, J, 1) Then       
            Verros = Verros + 1
           End If
        Next
    Text2.Text = Str(Verros)
End Sub

DESDE JÁ MUITO OBRIGADO..

colega só passe mais algumas informações, o seu text está como multiline

 

o texto no label é um arquivo de texto

 

ou apenas um label com texto inserido diretamente nele

 

esta informações vão ajudar a corrigir o erro

 

até

Sim o textbox esta como multiline

'O label é usado para comparar o texto e ver se o texto está certo e marcar a quantidade de erro porém so funciona com a primeira linha, na segunda linha sempre conta tudo como erro 

esse é o codigo todo

Dim Palavra1, Palavra2 As String
Dim I, J, Verros As Integer

Private Sub Form_Load()
Label1.Caption = "ASDFG ASDFG ASDFG ASDFG ASDFG"
End Sub

Private Sub RText_KeyUp(KeyCode As Integer, Shift As Integer)
 Verros = 0
    Palavra1 = Label1.Caption
    Palavra2 = RText.Text
    I = Len(Trim(Palavra2))
    For J = 1 To I
        If Mid(Palavra2, J, 1) <> Mid(Palavra1, J, 1) Then
            Verros = Verros + 1
           End If
        Next
    Text2.Text = Str(Verros)
End Sub

 

A SITUAÇÃO É A SEGUINTE SE VOCÊ ESTIVER DIGITANDO E PRESSIONAR ENTER O TEXTO É QUEBRADO O QUE OCASIONA O ERRO FAÇA O SEGUINTE DIGITANDO SEM PRESSIONAR a tecla  ENTER, A QUEBRA DE LINHA SERÁ AUTOMÁTICA  QUANDO ALCANÇAR O TAMNHO DO TEXTBOX PORÉM A LINHA NÃO SERÁ QUEBRADA E NÃO HAVERÁ ERRO.

 

Se você pretende fazer a um label com aviras linhas então use este exemplo abaixo

 

Dim Palavra1, Palavra2 As String
Dim I, J, Verros As Integer
Private Sub Form_Load()

' aqui está aprimeira linha
Label1.Caption = "ASDFG ASDFG"

Label1.Caption = Label1.Caption + Chr(13) & Chr(10) + "ASDFG ASDFG"
End Sub

 

Private Sub Rtext_KeyUp(KeyCode As Integer, Shift As Integer)
 Verros = 0
    Palavra1 = Label1.Caption

' antes de chr(13)
    Palavra1 = Palavra1 + Chr(10) & Chr(13) + Palavra1
    Palavra2 = Rtext.Text
    plavara2 = Palavra2 + Chr(10) & Chr(13) + Palavra2
    I = Len(Palavra2)
    For J = 1 To I
        If Mid(Palavra2, J, 1) <> Mid(Palavra1, J, 1) Then
            Verros = Verros + 1
           End If
        Next
    Text2.Text = Str(Verros)

End Sub

 

pronto o problema está resolvido

teste

ESPERO TER AJUDADO

 

ATÉ

 

Treze 

deu certo, muito obrigado,

valeu me ajudou muito

Presisando estamos ai

 

até