Attribute VB_Name = "Module1"
Public Type dados
    cod As Long
    nome As String * 20
    morada As String * 40
    codpostal As Double
    localidade As String * 20
    datanascimento As String * 10
    telefone As Long
    nick As String * 60
    observacoes As String * 10000
End Type
Public Type dados1
    cod As Long
    mail As String * 50
End Type

Global registos As dados
Global codigo As Long
Global Tot As Long
Global reg As Long
Global mails As dados1

'For i = 1 To 6
 '   Put #1, i, mails
'Next i

'nr  cod mail
'1   1   dfgdfgdf
'2   1   swfsdsdf
'1
'2
'-----------------
'cod = 1
'nome = ricardo cardoso
'.....
'cod = 1
'email=nmsgnsd@sapo.pt
'cod = 1
'email = jksdhjkasd@jkashd.pt
