Visual Basic para Aplicaciones - Algo dificil con cadena de texto

hola

la situacion es esta:
tengo un lector de barras ke al leer me genera este dato por ejemplo
1,45459,1

lo ke necesito es un comando para poner las comillas " despues de la coma, y otras comillas antes de la segunda coma
ke kede tipo asi 1,"45459",1

gracias se ke es facil pero no se como hacerlo, gracias

decidite: es algo difícil o es fácil??!!!

Sub test()
Dim sStr$
sStr = "1,45459,1"
sStr = Split(sStr, ",")(0) & ",""" & Split(sStr, ",")(1) & """," & Split(sStr, ",")(2)
MsgBox sStr
End Sub

Saludos desde Baires, JuanC

me funciono super bien el codigo, gracias, solo una pregunta

a veces el lector me arroja esto
1,12547, 3
osea me pone espacios despues de la segunda coma
como elimino esos espacios en blanco para ke kede
1,"12547",3

el codigo es este

Dim sStr$
sStr = Text1.Text
sStr = Split(sStr, ",")(0) & ",""" & Split(sStr, ",")(1) & """," & Split(sStr, ",")(2)
MsgBox sStr

te lo agradezco mil :) besos

Hola
Usa la funcion Replace que busca una cadena y la remplaza con otra.

sStr = Replace(str," ","")
Lo que hace es buscar todos los espacios en blanco y los remplaza con una cadena vacia osea los borra(Nota que entre las primeras comillas dobles hay un espacio y en las segundas comillas no hay nada).

--------------
Dim sStr$
sStr = Text1.Text
sStr = Split(sStr, ",")(0) & ",""" & Split(sStr, ",")(1) & """," & Split(sStr, ",")(2)
sStr = Replace(str," ","")
MsgBox sStr
----------------

Saludos
TheEmulator
http://www.theemulator.tk

me funciono de maravilla, gracias tu lo sabes todo, te lo agradezco muchisimo

Gracias por la ayuda si funciona

hola quiero remplazar los espacios en blanco por cualquier caracter y despues sumar cuantos espacios en blanco tengo en visual basic 5

hola que tal mi duda es similar a esta nada mas que ami el lector me arroja asi:
55 2352 01 ó 52 77 07 80 me pone espacios en blanco cada lugar
como puedo quitarlos??