Perdon que no vaya a aportar nada pero me da curiosidad saber con que compilan ese codigo y como lo meten al artefacto  
				
			 
				Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú 
				
 Leet..!
 Leet..!
				Option Explicit
Private Sub Form_Load()
Dim i As Long
Dim nueva() As String
Dim palabra As String
palabra = "hola"
ReDim nueva(Len(palabra))
For i = 1 To Len(palabra)
    nueva(i) = Mid(palabra, i, 1)
Next i
End Sub
				 
				 (Y no precisamente warcraft)
 (Y no precisamente warcraft) 
				
 
 
 
				

 
				