Kelimeler arasına nokta ekleme

[ragnorak]

For i = 1 To ListView1.ListItems.count
If ListView1.ListItems(i).ListSubItems(2).Text = Empty Then
oFile.WriteLine ListView1.ListItems(i).ListSubItems(1).Text
Else
X = Len(ListView1.ListItems(i).ListSubItems(1).Text)
Y = Len(ListView1.ListItems(i).ListSubItems(2).Text)
fx = 60 - X - Y
oFile.WriteLine ListView1.ListItems(i).ListSubItems(1).Text & "....................." & ListView1.ListItems(i).ListSubItems(2).Text
End If
Next

yukarıda yazmaya çalıştığım kod'da
oFile.WriteLine ListView1.ListItems(i).ListSubItems(1).Text & "....................." & ListView1.ListItems(i).ListSubItems(2).Text ifadesinde "....................."bıraktığım alana fx değeri kadar nokta koymak istiyorum.

 

[ÖmerFaruk]

"....." olan yere
WorksheetFunction.Rept(".", fx)

 

[ragnorak]

Teşekkür ederim.