Coloca esto en el código y mira si te coloca los espacios o no:
Código:
Dim Text As String
Text = Right(String(vLen + 1, " ") & Round(baseimpo + iva, 2) & " D", vLen + 1)
Text = Text & vbCrLf & Right(String(vLen + 1, " ") & Round(iva, 2) & " H", vLen + 1)
Text = Text & vbCrLf & Right(String(vLen + 1, " ") & CDbl(baseimpo) & " H", vLen + 1)
MsgBox Text