Visual Basic - Como acompleto una cadena

ayuda me urge hacer esto :
Como acompleto una cadena de texto a una longitud de n posiciones con espacios en blancos u otro caracter

Gracias

Dim numerodecaracteres As Integer
Dim txt As String
Dim espaciosquefaltan As Integer
Const relleno = " " 'aquí puedes colocar cualquier caracter

numerodecaracteres = 10 'el número que debe completar
txt = "hola"
MsgBox "*" & txt & "*"
espaciosquefaltan = numerodecaracteres - Len(txt)
txt = txt & String(espaciosquefaltan, relleno)
MsgBox "*" & txt & "*"

Ahora que debes preveer qué pasa cuando la cadena es mayor, la puedes cortar o dejarla cmo está.

Gracias