Charachters duplicados vb.net

Dim c As Char = "*"
Dim tenC = StrDup(10,c)
dunk shot enthusiast