El metodo mas efectivo seria el propuesto por
Nebire definiendo la logitud en la cadena, el de
Jimbenit no es malo. y como extra tambien te propongo uno
Function LPad(Cadena As String, Longitud As Integer, Optional Caracter = " ")
LPad = Right(Replace(Space(Longitud + 1), " ", Caracter) & Cadena, Longitud + 1)
End Function
Function RPad(Cadena As String, Longitud As Integer, Optional Caracter = " ")
RPad = Left(Cadena & Replace(Space(Longitud + 1), " ", Caracter), Longitud + 1)
End Function
Saludos