'Este exemplo mostra ler o conteúdo de um arquivo
'texto uma linha de cada vez.

'Veja o link:
'http://www.recomende.com/arquivo/visualizar_dica.php?qual_dica=1508
'para mais informações sobre a classe StreamReader

Imports System.IO

Module Module1
  Sub Main()
    Try
      'define o diretório atual
      Directory.SetCurrentDirectory("c:\estudos_vb")

      'cria uma instância da classe StreamReader para ler
      'a partir do arquivo
      Dim sr As StreamReader = New StreamReader("teste.txt", _
        System.Text.Encoding.Default)
      Dim linha As String

      Do
        'lê uma linha de cada vez
        linha = sr.ReadLine()
        Console.WriteLine(linha) 'escreve a linha
      Loop Until linha Is Nothing

      sr.Close() 'fecha o fluxo de dados
    Catch e As Exception
      Console.Write("Erro ao ler o arquivo: ")
      Console.WriteLine(e.Message)
    End Try

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    Dim valor As Integer

    Console.Write("Informe um número inteiro: ")
    valor = Val(Console.ReadLine())

    If valor Mod 2 = 0 Then
      Console.WriteLine("O número é par")
    Else
      Console.WriteLine("O número é ímpar")
    End If

    Console.WriteLine("\nPressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    Dim palavra1, palavra2 As String
    palavra1 = "Visual Basic"
    palavra2 = "Visual Basic"

    If String.Compare(palavra1, palavra2) = 0 Then
      Console.WriteLine("As duas strings são iguais")
    Else
      Console.WriteLine("As duas strings são diferentes")
    End If

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    ' declara uma variável do tipo String
    Dim frase As String

    ' inicializa a string usando New
    frase = New String("Você já conhece o site Arquivo de Códigos?")
    ' vamos mostrar o resultado
    Console.WriteLine("A frase é: " & frase)

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module