Como insertar un caracter dentro de un cadena VB 6 ? [SOLUCIONADO]

Question

Hola a todos, pues esta vez vengo con un problemita y es que tengo una cadena de numeros, y quiero que despues de cada numero se me inserte un "," o sea: tengo una cadena asi: "150000" y quiero que esta cadena me quede de esta manera: "1,5,0,0,0,0" o sea que quiero recoger cada numero por individual... aguien sabe como podria realizar este problemita ??

Answer 1

Dim cadenaSalida As String

For i = 1 To Len(cadenaEntrada)
  cadenaSalida  = Mid$(cadenaEntrada, i, 1) & iif (i <> Len(cadenaEntrada), ",","")
Next

---

Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

Answer 2

Gracias @Sergio Parra me funciona al 100%...