Underc0de

Les dejo esta función traducida de Pauscal, utiliza una matriz de tipo byte y la redimenciona al tamaño especificado, luego la devuelve.

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