Private Declare Function OpenProcess Lib "kernel32" _
    (ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernel32" _
    (ByVal hProcess As Long, lpExitCode As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Const STILL_ACTIVE = 1

Private Function ExeEspera(COMANDO As String)
    Dim hProcess As Long
    Dim RetVal As Long
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(COMANDO, vbMinimizedNoFocus))
    Do
        GetExitCodeProcess hProcess, RetVal
        DoEvents
        Sleep 1000
    Loop While RetVal = STILL_ACTIVE
End Function

Private Sub Command1_Click()
'    ExeEspera "ping 124.32.54.4"
    Dim Winzip As String
    Dim ArchivoZIP As String
    Dim PorComprimir As String
    
    ArchivoZIP = "C:\temp\ArchivoZIP.zip"
    PorComprimir = "C:\temp\PorComprimir.txt"
    Winzip = "C:\Archivos de programa\WinZip\winzip32.exe -a -r "
    
    ExeEspera Winzip & ArchivoZIP & " " & PorComprimir
    
    MsgBox "Listo"
End Sub

Dim Success%

Private Function FileExists%(fname$)
    On Local Error Resume Next
    Dim ff%
    ff% = FreeFile
    Open fname$ For Input As ff%
    If Err Then
        FileExists% = False
    Else
        FileExists% = True
    End If
    Close ff%
End Function

Private Sub Command1_Click()
1
    'Se ejecuta el primer proceso
    '
    '
    '
    
    '
    '
    'Se ejecuta el proceso de MS-DOS
    '
    '
    '
    
    'Se prepara la función para comprobar la existencia de Archivo.txt
    Success% = FileExists(App.Path & "\Archivo.txt")
    
    'En caso de ser verdadero
    If Success% = True Then
        'Se ejecuta el proceso que deseo
    Else
'        Se regresa al primer proceso hasta que se encuentre el archivo
        GoTo 1
    End If
    'Se continua con otro proceso
End Sub

Dim Success%

Private Function FileExists%(fname$)
    On Local Error Resume Next
    Dim ff%
    ff% = FreeFile
    Open fname$ For Input As ff%
    If Err Then
        FileExists% = False
    Else
        FileExists% = True
    End If
    Close ff%
End Function

Private Sub Command1_Click()
1
    'Se ejecuta el primer proceso
    '
    '
    '
    
    '
    '
    'Se ejecuta el proceso de MS-DOS
    '
    '
    '
    
    'Se prepara la función para comprobar la existencia de Archivo.txt
    Success% = FileExists(App.Path & "\Archivo.txt")
    
    'En caso de ser verdadero
    If Success% = True Then
        'Se ejecuta el proceso que deseo
    Else
'        Se regresa al primer proceso hasta que se encuentre el archivo
        GoTo 1
    End If
    'Se continua con otro proceso
End Sub

Private Sub Command1_Click()
    Dim Archivo As String, TODO As String, Busca As String
    
    Dim NumArchivo As Integer
    
    Archivo = "C:\archivo.txt"
    NumArchivo = FreeFile()
    
    Open Archivo For Input As #NumArchivo
        TODO = input(LOF(1), 1)
        
        busca = InStr(1, TODO, ",", vbTextCompare)
            
        If busca > 0 Then
            MsgBox "Encontrado"
        End If
    Close #NumArchivo
    
    Text1.Text = TODO
End Sub