É aceitável definir um “módulo” e uma “classe” dentro de um único elemento .VB?

Experiência:

Eu descobri que é possível definir um "Módulo" (Namespace?) e uma "Class" (Namespace?) dentro de um único elemento .Vb (Module ??).

Você pode tentar isso em casa:

• Criar um novo projeto de aplicativo de console.
  * Um novo elemento .Vb chamado "Module1.Vb" é automaticamente adicionado ao projeto.
• Adicione um novo elemento Class .Vb clicando com o botão direito do mouse no projeto no Gerenciador de Soluções > Adicionar > Classe ...
• Dê à nova turma o nome Test .
• Visualize o código para "Test.Vb" e cole o seguinte:

Imports System.Runtime.CompilerServices


Module ExtensionsTest
    <Extension()>
    Public Sub ToConsole(ByVal Ex As Exception)
        Dim ForeColor As ConsoleColor
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine()
        Console.WriteLine("An unhandled exception has occurred!")
        Console.WriteLine(Ex.ToString)
        Console.ForegroundColor = ForeColor
    End Sub
End Module


Class Test
    Public Sub Test()
        Try
            Dim test As New Object
            test.SomeMethodDoesntExist()
        Catch ex As Exception
            ex.ToConsole()
        End Try
    End Sub
End Class

Veja o código do módulo 1 e cole o seguinte:

Module Module1
    Sub Main()
        Try
            Dim tester As New Test
            tester.Test()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Module

Agora vá em frente e percorra ou execute o aplicativo. Você verá tudo funciona. Então, vamos passar para o ...

Carne da pergunta

Esta prática é aceitável? Pode ser tecnicamente possível - mas é uma solução ruim por razões que eu não conheço? (Eu sou um Mort e realmente não quer pegar más práticas de codificação inconscientemente)

Eu originalmente tinha isso como um método Private dentro da definição de classe assim:

Imports System.Runtime.CompilerServices
Class Test
    Public Sub Test()
        Try
            Dim test As New Object
            test.SomeMethodDoesntExist()
        Catch ex As Exception
            ToConsole(ex)
        End Try
    End Sub

    Private Sub ToConsole(ByVal Ex As Exception)
        Dim ForeColor As ConsoleColor
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine()
        Console.WriteLine("An unhandled exception has occurred!")
        Console.WriteLine(Ex.ToString)
        Console.ForegroundColor = ForeColor
    End Sub
End Class

Eu decidi que seria mais limpo definir o ToConsole sub como um método de extensão para objetos Exception , mas foi aí que me deparei com problemas. Quando criei o atributo Extension dentro do namespace Class , recebi um erro do compilador:

Extension methods can be defined only in modules.

Então, tentei a experiência acima e declarei um Module dentro do mesmo elemento .VB onde meu Class está definido.
Como mostra o experimento acima, tudo isso compila bem e funciona como esperado, mas gostaria de saber se é uma boa ideia ou não e por quê?

Obrigado por reservar algum tempo para ler isto e ainda mais obrigado pelo tempo que levou para comentar ou responder!