erro na leitura de arquivos txt

O código abaixo não pega a primeira linha do arquivo txt, alguém sabe o motivo disto?

Dim fluxoTexto As IO.StreamReader
Dim linhaTexto As String
Dim index As Integer = 1

If IO.File.Exists(Me.txtArquivo.Text) Then
Try
Me.lblincluindo.Text = "Incluindo itens na tabela..."
Me.lblincluindo.Refresh()
fluxoTexto = New IO.StreamReader(txtArquivo.Text)
linhaTexto = fluxoTexto.ReadLine()

While linhaTexto <> Nothing
linhaTexto = fluxoTexto.ReadLine()
bc.insereTxt(linhaTexto)
index = index + 1
Me.lblincluindo.Text = "Incluindo itens na tabela..." & _
Chr(13) & "Item num " & index.ToString
Me.lblincluindo.Refresh()
End While

MessageBox.Show("Itens incluidos com sucesso!")
fluxoTexto.Close()
Catch ex As Exception

MessageBox.Show("Itens incluidos com sucesso!")
funcao.gravaLog("Erro incluindo dados no arquivo: " & ex.Message & " " & ex.StackTrace)
End Try
Else

MessageBox.Show("Arquivo não existe")
funcao.gravaLog("Arquivo não encontrado!")
End If
Me.Close()
Obrigada!