Ayuda en fichero de texto en aplicacion mobil

[superbirkof]

Muy buenas tardes, soy de Asuncion Paraguay, y soy nuevo el tema de aplicaciones moviles y visual basic.net.
Estoy haciendo una aplicacion sencilla de inventario que tiene un simple cuadro de texto que al prenderse el lector escanea un codigo, lo pasa al cuadro de texto y al hacer enter se va escribiendo uno debajo del otro en un fichero de texto dentro del dispositivo.
Lo que me piden ahora es que al escanear un codigo se valide que ese codigo no se haya leido dos veces, que salga un mensaje diciendo "Codigo ya leido" o algo asi, ya que en el deposito son productos con codigos unicos y se desea validar que por error no se lean dos veces el mismo codigo.
paso mi codigo:


Imports System.IO


Public Class Form1
'Dim strStreamW As Stream

Dim strStreamWriter As StreamWriter
Dim FilePath As String = ("\Archivos de programa\scan.txt")


Private Sub txtCodigo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCodigo.KeyPress

If e.KeyChar = Microsoft.VisualBasic.ChrW(13) Then
'
' abrir el archivo y escribir el codigo
'
strStreamWriter = New StreamWriter(FilePath, True)
strStreamWriter.WriteLine(txtCodigo.Text)
'
' cerrar el archivo
'
strStreamWriter.Close()
'
' limpiar y enfocar el codigo
'
Me.txtCodigo.Text = ""
Me.txtCodigo.Focus()
End If

End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()

End Sub


End Class


Agradeceria muchisimo su ayuda.
Saludos desde Paraguay.