Private Sub Command1_Click()
If Text1.Text = "Hallo" Then
    MsgBox "OK"
    Else
        With List1
            If .ListIndex < .ListCount - 1 Then
                .ListIndex = .ListIndex + 1
                If Command3_Click = True Then
                    Exit Sub
                Else
                    Command1_Click
                End If
            End If
        End With
End If
end Sub