Timer

Que tal estoy desarrollando una pequeña aplicación en la cual
necesito leer de un archivo de texto los datos y los debo de
guardar en una tabla de access, este proceso ya lo hago pero
resulta que si la información del arch. de texto es mucha
quiero que se despliega un mensaje informado de que el proceso
de actualización en la BD puede durar varios minutos, a continuación
pongo mi código:

Private Sub btnActualizaBD_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnActualizaBD.Click

Me.btnSelecArch.Enabled = False
Me.btnSalir.Enabled = False
Label5.ForeColor = Color.Red
Label5.Text = "Este proceso puede durar varios minutos, por favor
espere"

Dim objReader As New StreamReader(nomArch)
Dim sLine As String = ""
Dim Fecha, Hora, Acceso, Empleado, Evento As String

Try
Do
sLine = objReader.ReadLine()
If Not sLine Is Nothing Then
Fecha = Mid(sLine, 1, 10)
Hora = Mid(sLine, 13, 8)
Acceso = Mid(sLine, 24, 8)
Empleado = Mid(sLine, 57, 23)
Evento = Mid(sLine, 82, 25)
Guardar(Fecha, Hora, Acceso, Empleado, Evento,
txtNoSem.Text)
End If
Loop Until sLine Is Nothing
objReader.Close()
MessageBox.Show("Proceso terminado, los datos se han guardado en
la Base de Datos", "Información", MessageBoxButtons.OK,
MessageBoxIcon.Information)
Me.btnSelecArch.Enabled = True
Me.btnSalir.Enabled = True
Label5.Text = ""
Catch ex As Exception
MessageBox.Show("Ha ocurrido un error " & ex.Message)
End Try
End Sub

Como se puede observar, lo que trato de hacer es que cuando presionen el
botón actualizar se desactiven unos botones y se despliege el mensaje
mientras se esta guardando la información en la BD, pero resulta que el
mensaje aparece hasta que el proceso ha terminado, ojalá y alguien me pueda
ayudar.