DataObj não ofuscante como MSForms.DataObject novo
S não ofuscante como a corda
Linhas não ofuscantes como a variação
Linha não ofuscante como a corda
DataObj.GetFromClipboard
S = DataObj.GetText
'Você tem agora uma corda conter o texto da prancheta.
Linhas = separação (S, Chr (13))
'Isto racha a corda em um jogo de linhas individuais
Para cada linha nas linhas
'Põr seu código para segurar aqui cada linha
Em seguida