1 files changed, 21 insertions, 21 deletions
diff --git a/pt-br/visualbasic-pt.html.markdown b/pt-br/visualbasic-pt.html.markdown
index 2a7205cd..dcc72c04 100644
--- a/pt-br/visualbasic-pt.html.markdown
+++ b/pt-br/visualbasic-pt.html.markdown
@@ -8,7 +8,7 @@ lang: pt-br
 filename: learnvisualbasic-pt.vb
 ---
 
-```
+```visualbasic
 Module Module1
 
 module Module1
@@ -28,12 +28,12 @@ module Module1
         Console.WriteLine ("2. Entrada Olá Mundo" )
         Console.WriteLine ("3. Cálculando números inteiros " )
         Console.WriteLine ("4. Calculando números decimais " )
-        Console.WriteLine ("5 . Calculadora de Trabalho " )
+        Console.WriteLine ("5. Calculadora de Trabalho " )
         Console.WriteLine ("6. Usando Do While Loops " )
         Console.WriteLine ("7. Usando Para While Loops " )
-        Console.WriteLine ("8 . Declarações condicionais " )
+        Console.WriteLine ("8. Declarações condicionais " )
         Console.WriteLine ("9. Selecione uma bebida" )
-        Console.WriteLine ("50 . About" )
+        Console.WriteLine ("50. About" )
         Console.WriteLine ("Por favor, escolha um número da lista acima " )
         Seleção Dim As String = Console.ReadLine
         Select A seleção dos casos
@@ -76,7 +76,7 @@ module Module1
     End Sub
 
     ' Um - Eu estou usando números para ajudar com a navegação acima quando eu voltar
-    ' depois de construí-lo .
+    ' depois de construí-lo.
 
     " Nós usamos subs privadas para separar diferentes seções do programa.
     Private Sub HelloWorldOutput ()
@@ -94,12 +94,12 @@ module Module1
         Console.Title = " Olá Mundo YourName | Saiba X em Y Minutes"
         ' Variáveis
         'Os dados inseridos por um usuário precisam ser armazenados.
-        ' As variáveis também começar com um Dim e terminar com um Como VariableType .
+        ' As variáveis também começar com um Dim e terminar com um Como VariableType.
 
         ' Neste tutorial, nós queremos saber qual é o seu nome, e faça o programa
         ' Responder ao que é dito.
         Nome de usuário Dim As String
-        " Nós usamos string como string é uma variável de texto baseado .
+        " Nós usamos string como string é uma variável de texto baseado.
         Console.WriteLine (" Olá, Qual é o seu nome? ") ' Peça ao usuário seu nome.
         username = Console.ReadLine () ' armazena o nome do usuário.
         Console.WriteLine (" Olá " + username) ' A saída é "Olá < seu nome >".
@@ -124,10 +124,10 @@ module Module1
     'Quatro
     Sub CalculatingDecimalNumbers particulares ()
         Console.Title = " Calculando com duplo | Saiba X em Y Minutes"
-        ' Claro que gostaria de ser capaz de somar decimais .
+        ' Claro que gostaria de ser capaz de somar decimais.
         " Por isso, poderia mudar o acima de Integer para Double.
 
-        " Digite um número inteiro , 1,2 , 2,4 , 50,1 , 104,9 ect
+        " Digite um número inteiro como 1, 2, 50, 104, etc
         Console.Write ("Primeiro número:")
         Dim a As Double = Console.ReadLine
         Console.Write ("Segundo número:") 'Enter segundo número inteiro.
@@ -141,9 +141,9 @@ module Module1
     ' Cinco
     Private Sub WorkingCalculator ()
         Console.Title = " A Calculadora de Trabalho | Saiba X em Y Minutes"
-        " No entanto, se você gostaria que a calculadora para subtrair, dividir , múltiplos e
+        " No entanto, se você gostaria que a calculadora para subtrair, dividir, múltiplos e
         ' somar.
-        ' Copie e cole o código acima novamente .
+        ' Copie e cole o código acima novamente.
         Console.Write ("Primeiro número:")
         Dim a As Double = Console.ReadLine
         Console.Write ("Segundo número:") 'Enter segundo número inteiro.
@@ -153,7 +153,7 @@ module Module1
         Dim e As Integer = a - b
         Dim f As Integer = a / b
 
-        " Ao adicionar as linhas abaixo , somos capazes de calcular a subtração ,
+        " Ao adicionar as linhas abaixo, somos capazes de calcular a subtração,
         ' multply bem como dividir os valores de a e b
         Console.Gravar ( a.ToString ( ) + " + " + b.ToString ( ) )
         'Queremos pad as respostas para a esquerda por três espaços.
@@ -172,8 +172,8 @@ module Module1
     Sub UsingDoWhileLoops particulares ()
         ' Assim como o sub privado anterior
         ' Desta vez, perguntar se o usuário deseja continuar ( Sim ou Não ? )
-        ' Estamos usando Do While Loop , como não temos certeza se o usuário quer usar o
-        'programa mais de uma vez .
+        ' Estamos usando Do While Loop, como não temos certeza se o usuário quer usar o
+        'programa mais de uma vez.
         Console.Title = " UsingDoWhileLoops | Saiba X em Y Minutes"
         Dim resposta As String ' Nós usamos a variável " String" como a resposta é um texto
         Do ' Começamos o programa com
@@ -195,12 +195,12 @@ module Module1
             Console.Write ( a.ToString () + "/" + b.ToString ())
             Console.WriteLine (" =" + e.ToString.PadLeft (3) )
             Console.ReadLine ()
-            ' Faça a pergunta , se o usuário deseja continuar? Infelizmente,
+            ' Faça a pergunta, se o usuário deseja continuar? Infelizmente,
             "é sensível a maiúsculas.
             Console.Write ( "Deseja continuar? (Sim / não )")
             " O programa pega a variável e imprime e começa de novo.
             answer = Console.ReadLine
-        " O comando para a variável para trabalhar seria , neste caso, " sim "
+        " O comando para a variável para trabalhar seria, neste caso, " sim "
         Loop While resposta = "yes"
 
     End Sub
@@ -233,7 +233,7 @@ module Module1
         outro
             Console.WriteLine (" Olá " + nome do usuário)
             Console.WriteLine (" Você check-out www.learnxinyminutes.com " )
-            Console.ReadLine () ' Fins e imprime a declaração acima .
+            Console.ReadLine () ' Fins e imprime a declaração acima.
         End If
     End Sub
 
@@ -242,15 +242,15 @@ module Module1
     Console.Title = "Se Declaração / Else | Saiba X em Y Minutes"
         'Às vezes é importante ter em conta mais de duas alternativas.
         'Às vezes, há um bom número de outros.
-        'Quando este for o caso , mais do que uma if seria necessária .
-        'Uma instrução if é ótimo para máquinas de venda automática . Quando o usuário digita um código.
-        ' A1 , A2, A3 , ect para selecionar um item.
+        'Quando este for o caso, mais do que uma if seria necessária.
+        'Uma instrução if é ótimo para máquinas de venda automática. Quando o usuário digita um código.
+        ' A1, A2, A3, etc para selecionar um item.
         'Todas as opções podem ser combinadas em uma única if.
 
         Seleção Dim Valor String = Console.ReadLine ' para a seleção
             Console.WriteLine (" A1. Para Soda " )
             Console.WriteLine (" A2. Para Fanta " )
-            Console.WriteLine (" A3 . Para Guaraná" )
+            Console.WriteLine (" A3. Para Guaraná" )
             Console.WriteLine (" A4. Para Coca Diet" )
             Console.ReadLine ()
             Se a seleção = "A1" Então