Дублирующие шарахтер VB.NET

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