"Seja bem, aqui esta um modelo modificado, aqui quando você digita um arquivo não existente, você recebe uma exclamação (ARQUIVO NÃO ENCONTRADO) na segunda tentativa você é notificado (que o arquivo que você esta tentando abrir não esta no local ou não existe) e pedi para você refazer o procedimento novamente do começo." ACHO QUE DEU CERTO!
Private Sub Command1_Click()
CommonDialog1.Filter = "Arquivos Texto (*.TXT)|*.TXT"
CommonDialog1.InitDir = "C:dadospontapeinicial"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
If Dir(CommonDialog1.FileName) = Empty Then MsgBox "Arquivo não encontrado", vbExclamation, "ATENÇÃO!"
If Dir(CommonDialog1.FileName) = Empty Then CommonDialog1.ShowOpen
If Dir(CommonDialog1.FileName) = Empty Then MsgBox "O arquivo não se encontra no local ou não existe. Refaça o processo.", vbCritical, "CARLINHOS NOTIFICA!"
If Dir(CommonDialog1.FileName, vbarquive) = Empty Then Exit Sub
Open CommonDialog1.FileName For Input Access Read As #1
Do Until EOF(1)
C = C + 1
Line Input #1, Linha
If C = 1 Then Text1.Text = Linha
If C = 2 Then Text2.Text = Linha
If C = 3 Then Text3.Text = Linha
