[HELP] String Manipulation

[surya1990]

well, down to the double period, here's the solution...I'll work on the remainder in a moment.

Private Sub Command1_Click()

dim myText as string, myNewText as string, x as integer
myText = Text1.Text
For X = 1 To Len(Text1.Text)
myNewText = myNewText + Mid(myText, 1, X) + "." + Mid(myText, X + 1) + vbCr
Next X
End Sub

thanks fo ur reply.
thats work but i need more output
whit your function output text just :
v.bforums
vb.forums
vbf.orums
vbfo.rums
vbfor.ums
vbforu.ms
vbforum.s

i mean all posible .(dot) watever 1 or 2 or many dot whit word : vbforums
like this:

v.bforums
vb.forums
vbf.orums
vbfo.rums
vbfor.ums
vbforu.ms
vbforum.s
v.b.forums
v.bf.orums
v.bfor.ums
v.bforu.ms
v.bforum.s
v.b.f.orums
.
.
.
vbforu.m.s
.
.
.
until
v.b.f.o.r.u.m.s

and i wanna add output text to Listview.
any idea?
please someone help me

Sorry for my grammar look bad..