Aplicacion de menu con VB Consola

Imports System.Console
Module MdoMenu
    Dim Opcion As Integer = 0
    Dim M(3, 3) As Integer
    Dim SW As Integer = 0
    Sub Main()
        Do While SW = 0
            Clear()
            WriteLine("=================================================================")
            WriteLine("=               ( MENU PRINCIPAL )                              =")
            WriteLine("=================================================================")
            WriteLine("= 1. Llenar una Matriz                                          =")
            WriteLine("= 2. Imprimir una matriz                                        =")
            WriteLine("= 3. Fin                                                        =")
            WriteLine("=================================================================")
            Opcion = ReadLine()
            Select Case Opcion
                Case 1
                    Call LLenar_Matriz()
                Case 2
                    Call Imprimir_Matriz()
                Case 3
                    SW = 1
            End Select

        Loop
    End Sub
    Private Sub LLenar_Matriz()
        Clear()
        WriteLine("=================================================================")
        WriteLine("=                ( LLENAR UNA MATRIZ DE 3x3 )                   =")
        WriteLine("=================================================================")
        Dim N As Integer
        Dim I, J As Integer
        For I = 0 To 2
            For J = 0 To 2
                Write("Digite elemento " & "( " & I & " , " & J & " ) ")
                N = ReadLine()
                M(I, J) = N
            Next J
        Next I
        WriteLine("Presione una tecla para continuar....")
        ReadKey()
    End Sub
    Private Sub Imprimir_Matriz()
        Clear()
        WriteLine("=================================================================")
        WriteLine("=              ( IMPRESION DE UNA MATRIZ DE 3x3 )               =")
        WriteLine("=================================================================")
        Dim N As Integer
        Dim I, J As Integer
        For I = 0 To 2
            For J = 0 To 2
                Write(String.Format(M(I, J), "0:###,###,###,###") & " ")

                '  String.Format("{0:###,###,###,##0.00##}", Decimal.Parse(unNumero));

            Next J
            WriteLine(" ")
            WriteLine(" ")
        Next I
        WriteLine("Presione una tecla para continuar....")
        ReadKey()

    End Sub
End Module