Private Function SpaceAlt(longitud As Long) As String Dim Matriz() As Byte ReDim Matriz(longitud * 2) SpaceAlt = MatrizEnd Function