Visual Basic - Insertar espacios aleatorios

Hola tengo llenar una variable con dos palabras de menos de 15 caracteres, el problema es que tengo que usar de la posicion 1 a la 15 para la primer palabra y de la 17 a la 32 para la segunda, por eso se me ocurri de agregar tantos espacios como sea necesario para completar las 17 posiciones.

Como hago para poner espacios al azar? VBSP? como hago?

Desde ya gracias.

Podría ser así. Obviamente que podría optimizarse con un poco menos de código.

Private Sub Command1_Click()
Mifvar = Trim(Mid(Text1.Text, 1, 15))
Mifvar = Space(15 - Len(Mifvar)) & Mifvar
Misvar = Trim(Mid(Text1.Text, 1, 15))
Misvar = Space(15 - Len(Misvar)) & Misvar
MyVar = Mifvar & " " & Misvar
Debug.Print MyVar
End Sub

con space(15-len(x)) me alcanzaba

Muchas Gracias!!!!