Dim sep As VariantDim CurrentPos As Byte ' Byte ocupa menos memoria 'Dim CurrentSep As String * 1 'Un texto de un solo carácter 'Dim Texto As StringTexto = "ca.lle America"sep = Array("-", ".", ";")