RE:Convertir de ascii a caracter
Hola, mira a ver si te sirve esto para lo de la caja de julio. es con dos textbox un list y un boton
Private Sub Command1_Click()
Dim LongitudCadena As Single 'para calcular la longitud de la cadena q tiene q ser un cuadrado perfecto
Dim elCuad As Integer
Dim cadena As String
Dim QQ As String
Dim n As Integer
Dim p As Integer
List1.Clear
cadena = Replace(Text1.Text, " ", "", 1) 'eliminamos los espacios
LongitudCadena = Sqr(Len(cadena))
If Int(LongitudCadena) <> LongitudCadena Then ' miramos si la longitud de la cadena es un cuadrado y si no calculamos
LongitudCadena = Int(LongitudCadena) + 1 'de cuanto debe ser
End If
elCuad = LongitudCadena
LongitudCadena = LongitudCadena ^ 2
cadena = cadena & String((LongitudCadena - Len(cadena)), "g") 'rellenamos las cadena para q tenga la longitud adecuada
For n = 1 To elCuad
QQ = ""
For p = 0 To elCuad
QQ = QQ & Mid(cadena, n + (elCuad * p), 1)
Next
List1.AddItem QQ
Next
QQ = ""
For n = 0 To List1.ListCount
QQ = QQ & List1.List(n)
Next
Text2.Text = QQ
End Sub
lo del codigo asccii es la funcion chr() o algo asi
nos vemos