Reemplazar una cadena de caracteres

Dim mystr As String = New String("*"c, array.Length)

Fuente: https://stackoverflow.com/questions/14483500/how-do-i-generate-a-string-of-asterisks-with-specified-length