Visual Basic - Insertar espacios en blanco entre caracteres

Saludos

Tengo un problema encesito diseñar un programita que la insertarle 15 digitos numericos por ejemplo:

123456789012345 el programa le agregue dos espacio entre el quito y el sexto caracter

Ejemplo:

123456789012345 -------------> 12345 6789012345

Y despues envie a imprimir a la impresora predeterminada

Les agradezco de antemano su ayuda...

Private Sub Command1_Click()
Dim A As String, B As String
A = Me.Text1.Text 'text1.text contiene el numero 0123456789012345
B = Mid(A, 6)
A = Mid(A, 1, 5) & " " ' se agregan 2 espacios
Me.Text1.Text = A & B

'codigo para imprimir
End Sub

Gracias.

como seria el codigo para insertar espacios en blanco entre los caracteres de una cadena