spreadsheet Microsoft Office 2000/Visual Basic

[keesstruijk]

Wie kan mij helpen met het volgende probleem
ben in visual basic 6 bezig met een spreadsheet
vul de spreadsheet met gegevens om eventueel gegevens te wijzigen of toe te voegen
nu b.v in kolom C staan bedragen met 2 getallen achter de komma
ik formateer de kolom als volg
sprArt.ActiveSheet.Range("c3:c700").NumberFormat = Format$("####0.00")
als ik nu een bedrag in geef van b.v 12,3 maakt hij er netjes 12,30 van
maar nu mijn probleem, als ik geen komma in geef maar een punt
12.3 dan geef hij 12.3 weer
hoe kan ik er voor zorgen dat de punt in een komma verandert
dus 12.3 wijzigen in 12,30

gr., kees

 

[That Guy]

probeer de replace() functie:

dim bla as string
bla = "string, met komma"

bla = replace(bla, ',', '.')

[COLOR="SeaGreen"]'bla is nu "string. met komma"[/COLOR]

:thumb:

 

[keesstruijk]

met de functie replace heb ik nog niet mee gewerkt
heb van alles geprobeerd maar lukt niet
ik ga als volgt te werkt.
sprArt.ActiveSheet.Range("c3:c700").NumberFormat$ = "###0.00"
sprArt.ActiveSheet.Range("i3:i700").NumberFormat = Format$("####0.00")
regel = 1
strBestand = strMap & "\artikel.dat"
Open strBestand For Random As #1 Len = 500
Do While Not EOF(1)
Get #1, regel, artikels
sprArt.ActiveSheet.Cells(regel, 1) = artikels.code
sprArt.ActiveSheet.Cells(regel, 2) = artikels.naam
sprArt.ActiveSheet.Cells(regel, 3) = Trim(artikels.verkoopprijs)
sprArt.ActiveSheet.Cells(regel, 4) = artikels.voorraad
sprArt.ActiveSheet.Cells(regel, 5) = artikels.inOrder
sprArt.ActiveSheet.Cells(regel, 6) = artikels.inBacOrder
sprArt.ActiveSheet.Cells(regel, 7) = artikels.inbestelling
sprArt.ActiveSheet.Cells(regel, 8) = artikels.inkoopcode
sprArt.ActiveSheet.Cells(regel, 9) = Trim(artikels.kostprijs)
regel = regel + 1
Loop

kun je mij uit leggen hoe ik hier in de functie kan gebruiken

groetjes Kees