ehh que que está errado no meu codigo Private Sub cmdconfirma_Click() Dim numero As Integer Dim algoritimo As Integer Dim i As Integer If IsNumeric(txtnumero.Text) Then numero = txtnumero.Text Else MsgBox "ovalor digitado não e numrico!", vbCritical, "erro" Exit Sub End If algoritimo = numero 'For i = 1 To Len(numero) 'i = i & Mid(algoritimo, i, 1) 'If Mid(algoritimo, i, 1) Then ' numero = Mid(algoritimo, i + 1, 5) ' Exit For ' End If ' Next i txtfinal = numero End Sub