Kod:
Dim StartPos, Counter As Integer
Dim FindString, ReplaceText As String
FindString = "."
ReplaceText = ","
For Counter = 1 To Len(Text27.Text)
StartPos = InStr(Text27.Text, FindString)
If StartPos > 0 Then
Text27.SelStart = StartPos - 1
Text27.SelLength = Len(FindString)
Text27.SelText = "" + ReplaceText
End If
NextAccess te tasarıma gelip para birimine çevirme yapalım
![[Resim: qb28MV.jpg]](http://i.hizliresim.com/qb28MV.jpg)
En sonda visual basic te arama yapınca textbox a format attıracaz
Kod:
Text19.Text = Format(Text19.Text, "#,##")Problem çözülmüştür konu taşınabilir.
