Visual Basic - Ayuda con guardar archivo

Hola a todos/as.-

Necesito que alguien me diga como puedo hacer lo siguiente:
Quiero guardar un archivo .doc, l hago de la siguiente forma

' Se guarda y se cierra el documento
' Comprobamos la versión de windows para poner, o no, la barra
strbarra = Right(App.Path, 1)
If strbarra = "\" Then
rutaFinal = App.Path & "Mi documento .doc"
Else
rutaFinal = App.Path & "\Mi documento.doc"

End If

Pero lo que necesito es que me cree una carpeta antes del archivo por ejemplo

rutaFinal = App.Path & "\Mi carpeta \Mi documento.doc"

Pero claro si lo pongo así me da error, como debería de ponerlo para que me cree una carpeta antes?

Gracias de antemano

Hola,
mirá, el dir1 es un dirListBox, pero podés hacerlo con lo q sea, yo porq lo usaba para backup.
lo q necesitás vos el mkdir q está ahi en este trozo de código

saludos

Dim s As String
On Error GoTo eror
s = InputBox("Ingrese el nombre de la nueva carpeta", "Crear carpeta", "Nueva Carpeta"
If Len(s) <> 0 Then
If Dir(Dir1.Path + "\" + s, vbDirectory) <> "" Then
MsgBox "La carpeta ya existe", vbCritical + vbOKOnly
Exit Sub
End If
MkDir Dir1.Path + "\" + s
Dir1.Path = Dir1.Path + "\" + s
End If
Exit Sub
eror:
MsgBox "No se pudo crear la carpeta", 16
Exit Sub