Создание папки с именем, указанным в TextBox - VB

Формулировка задачи:

Private Sub cmdCr_fol_Click()
  Dim fr As String
 
   fr = txtCr_fol.Text
   MkDir "C:\Users\User\Downloads\fr " & Replace(Replace(CStr(Now), "/", "."), ":", ".")
 
End Sub

Переменная fr обозначает имя папки, которое берет из TextBox. Как сделать, чтобы в строке кода создания папки, переменная принимала значение из TextBox , а не давала имя папки "fr"?

Решение задачи: «Создание папки с именем, указанным в TextBox»

textual
                            Листинг программы 
                        
                            MkDir "C:\Users\User\Downloads\" & txtCr_fol.Text & " " & Replace(Replace(CStr(Now), "/", "."), ":", ".")