Visual Basic - CODIGOS DE BARRA

AL ESCANER CON EL CODIGO DE BARRAS ME LO PASA A UN TEXTBOX, COMO LO GUARDO EN ALGUN ARCHIVO QUE SEA EN .TXT ??? Y/O COMO LE HAGO PARA QUE ME SEPARA ESTE CODIGO POR CAMPOS ??, SI TIENEN ALGUNA DIRECCION EN DONDE PUEDA OBTENER CODIGOS FUENTES O EJEMPLOS SE LOS AGRADECERE...SALUDOS.....JULIO C. ESCOBAR

Para guardar el código de barras en un archivo TXT puedes hacer:

StringToFile Text1.Text,"MiArchivo.txt"

Public Function StringToFile(StringText As String, FileName As String) As Long
Dim hlngFile As Long

hlngFile = FreeFile

Open FileName For Binary Access Write As hlngFile

Put hlngFile, , StringText

Close hlngFile

StringToFile = FileLen(FileName)

End Function

Y para el proceso inverso:

Text1.Text=FileToString("MiArchivo.txt")

Public Function FileToString(FileName As String) As String
Dim hlngFile As Long, strFile As String

hlngFile = FreeFile

Open FileName For Binary Access Read As hlngFile

FileToString = vbNullString

strFile = String(FileLen(FileName), " ")

Get hlngFile, , strFile

Close hlngFile

FileToString = strFile

End Function

La separación por campos -desconozco la estructura porque no la mencionas- la haces como con cualquier String con las funciones de VB.