Neste artigo eu vou dar algumas dicas de como escrever um código mais legível.

    Public Function verificar(s As List(Of DateTime)) As String
    Dim stb As String = Nothing
    For Each hchgd As DateTime In s
    If hchgd <= DateTime.Now Then stb = ( stb  & hchgd ) + vbLf _
    Else stb  = stb  & Convert.ToString("atrasado" & vbLf)
    Next
    Return stb 
    End Function

        public string verificar(List<DateTime> s)
        {
        string stb  = null;
        foreach (DateTime hchgd in s)
        { if (hchgd <= DateTime.Now)
        { stb  = stb  + hchgd + "\n"; }
        else { stb  = stb  + "atrasado\n"; }}
        return stb ;}

  Public Function VerificaHoraDeChegadaDosVoosDomesticos(HorarioDeChegadaVoosDomesticos As List(Of DateTime)) As String

    Dim stringBuilder = New StringBuilder()

    For Each horaDaChegadaDoVoo As DateTime In HorarioDeChegadaVoosDomesticos
            If horaDaChegadaDoVoo <= DateTime.Now Then
                stringBuilder.AppendLine(horaDaChegadaDoVoo.ToString())
            Else
                stringBuilder.AppendLine("Atrasado")
            End If
     Next

  Return stringBuilder.ToString()

  End Function

   public string VerificaHoraChegadaDosVoosDomesticos(List<DateTime> HorarioDeChegadaVoosDomesticos)
   {
            var stringBuilder = new StringBuilder();
            foreach (DateTime horaDaChegadaDoVoo in HorarioDeChegadaVoosDomesticos)
            {
                if (horaDaChegadaDoVoo <= DateTime.Now)
                {
                    stringBuilder.AppendLine(horaDaChegadaDoVoo.ToString());
                }
                else
                {
                    stringBuilder.AppendLine("Atrasado");
                }
            }
            return stringBuilder.ToString();
    }

    public class Usuario
    {
        public bool TemEmailConfirmado { get; set; }
        public bool TemContaAtiva { get; set; }
        public bool EstaLogado { get; set; }
        public bool TemContaEspecial { get; set; }
        public bool StatusAutoGerado{ get; set; }
        public DateTime UltimoEstadoAlterado { get; set; }

        public bool SetStatus(string status)
        {
            // implementação do codigo
            return true;
        }
    }

Public Class Usuario
Public Property TemEmailConfirmado() As Boolean
Public Property TemContaAtiva() As Boolean
Public Property EstaLogado() As Boolean
Public Property TemContaEspecial() As Boolean
Public Property StatusAutoGerado() As Boolean
Public Property UltimoEstadoAlterado() As DateTime
Private m_UltimoEstadoAlterado As DateTime

Public Function SetStatus(status As String) As Boolean
' implementação do codigo
Return True
End Function
End Class

 public string AtualizaStatus(string status, Usuario usuario)
        {
            if (usuario.TemContaAtiva)
            {
                if (usuario.TemEmailConfirmado)
                {
                    if (usuario.EstaLogado)
                    {
                        if (usuario.TemContaEspecial)
                        {
                            if (!usuario.StatusAutoGerado)
                            {
                                if (usuario.UltimoEstadoAlterado < DateTime.Now.AddDays(-1))
                                {
                                    if (usuario.SetStatus(status))
                                    {
                                        return "Atualizado";
                                    }
                                }
                            }
                        }
                    }
                }
            }
            return "Falhou";
        }

Public Function AtualizaStatus(status As String, usuario As Usuario) As String
	If usuario.TemContaAtiva Then
		If usuario.TemEmailConfirmado Then
			If usuario.EstaLogado Then
				If usuario.TemContaEspecial Then
					If Not usuario.StatusAutoGerado Then
						If usuario.UltimoEstadoAlterado < DateTime.Now.AddDays(-1) Then
							If usuario.SetStatus(status) Then
								Return "Atualizado"
							End If
						End If
					End If
				End If
			End If
		End If
	End If
	Return "Falhou"
End Function

 public class Verifica_MaisLegivel
    {
        const string OK = "Atualizado";
        const string FALHOU = "Falhou";

        public string AtualizaStatus(string status, Usuario usuario)
        {
            if (!PodeAtualizarStatus(usuario)) return FALHOU;
            if (!usuario.SetStatus(status)) return FALHOU;
            return OK;
        }

        public static bool PodeAtualizarStatus(Usuario usuario)
        {
            if (!usuario.EstaLogado) return false;
            if (!usuario.TemContaAtiva) return false;
            if (!usuario.TemEmailConfirmado) return false;
            if (!usuario.TemContaEspecial) return false;
            if (usuario.StatusAutoGerado) return false;
            if (!(usuario.UltimoEstadoAlterado < DateTime.Now.AddDays(-1))) return false;
            return true;
        }
    }

Public Class Verifica_MaisLegivel

    Const OK As String = "Atualizado"
    Const FALHOU As String = "Falhou"

    Public Function AtualizaStatus(status As String, usuario As Usuario) As String
        If Not PodeAtualizarStatus(usuario) Then Return FALHOU
        If Not usuario.SetStatus(status) Then Return FALHOU
        Return OK
    End Function

    Public Shared Function PodeAtualizarStatus(usuario As Usuario) As Boolean
        If Not usuario.EstaLogado Then Return False
        If Not usuario.TemContaAtiva Then Return False
        If Not usuario.TemEmailConfirmado Then Return False
        If Not usuario.TemContaEspecial Then Return False
        If usuario.StatusAutoGerado Then Return False
        If Not (usuario.UltimoEstadoAlterado < DateTime.Now.AddDays(-1)) Then
            Return False
        End If
        Return True
    End Function
End Class

 C#

 VB.NET

Quer migrar para o VB .NET ?

• Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

• Curso Básico VB .NET - Vídeo Aulas

Quer aprender C# ??

• Chegou o Super DVD C# com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

• Curso C# Basico - Video Aulas

Quer aprender os conceitos da Programação Orientada a objetos ?

• Curso Fundamentos da Programação Orientada a Objetos com VB .NET

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

•  Curso - Gerando Relatórios com o ReportViewer no VS 2013 - Vídeo Aulas