Vou mostrar de uma forma bem simples. Supondo que o conteúdo da label seja uma data válida faça:
Dim DataSemBarras as string
if len(Label1.caption) = 8 then
DataSemBarras=CStr(Format(Label1.Caption, "ddmmyy"))
Elseif len(Label1.caption) = 10
DataSemBarras=CStr(Format(Label1.Caption, "ddmmyyyy"))
EndIf
qq coisa poste daí... Abraços, Sidnei