ejercicios if visual basic en consola de windows

1. Que pida un número del 1 al 7 y diga el día de la semana correspondiente

Sub Main()
Dim numero As Integer
numero = Console.ReadLine
If numero = "7" ThenConsole.WriteLine("domingo")
Else
If numero = "6" Then
Console.WriteLine("sábado")
Else
If numero = "5" ThenConsole.WriteLine("Viernes")
Else
If numero = "4" Then
Console.WriteLine("jueves")
ElseIf numero = "3" Then
Console.WriteLine("miércoles")
Else
If numero = "2" ThenConsole.WriteLine("martes")
Else
If numero = "1" Then
Console.WriteLine("lunes")Else
Console.WriteLine("no cuenta")
End If
End IfEnd If
End If
End If
End If
End If

Console.Read()

End Sub

End Module












2. Quepida un número del 1 al 12 y diga el nombre del mes correspondiente 
Sub Main()
Dim mes As Integer
mes = Console.ReadLine
If mes = "1" ThenConsole.WriteLine("Enero")
Else
If mes = "2" Then
Console.WriteLine("Febrero")
Else
If mes = "3" ThenConsole.WriteLine("Marzo")
Else
If mes = "4" Then
Console.WriteLine("abril")
Else
If mes = "5" Then...