Create a directory (folder) getting path by adding textbox's values

[Anonymous]

sub main()

Dim fixtrg As String
fixtrg = "F:\Inventor Trying\"
restdir = UserForm1.TextBox1.Text & "\" & UserForm1.TextBox2.Text & "\" & UserForm1.TextBox3.Text & "\"
trgfol = fixtrg & restdir
If Dir(trgfol, vbDirectory) = vbNullString Then
 CreateFolder (trgfol)
Q = MsgBox("Folder Creation successful! wanna open", vbYesNo, "chose")
If Q = vbYes Then
Shell "Explorer.exe /e,/root,""" & trgfol & """", vbNormalFocus
End If
Else
Q = MsgBox("Already Exists ...... Wanna Open After clik", vbYesNo, "Choose")
If Q = vbYes Then
Shell "Explorer.exe /e,/root,""" & trgfol & """", vbNormalFocus
End If
End If

end sub

Public Function CreateFolder(destDir As String) As Boolean
   
   Dim i As Long
   Dim prevDir As String
   
   On Error Resume Next
   
   For i = Len(destDir) To 1 Step -1
       If Mid(destDir, i, 1) = "\" Then
           prevDir = Left(destDir, i - 1)
           Exit For
       End If
   Next i
   
   If prevDir = "" Then CreateFolder = False: Exit Function
   If Not Len(Dir(prevDir & "\", vbDirectory)) > 0 Then
       If Not CreateFolder(prevDir) Then CreateFolder = False: Exit Function
   End If
   
   On Error GoTo errDirMake
   MkDir destDir
   CreateFolder = True
   Exit Function
   
errDirMake:
   CreateFolder = False

End Function