title: VBA - Extract last word from string and create new string from extraction
body: <p>I have this function for selecting customer </p>
  
  <pre><code>Function GetFolder() As String 
      Dim fldr As FileDialog
      Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
  
      With fldr
          .Title = "Select"
          .AllowMultiSelect = False
          If .Show = 0 Then
              MsgBox ("Canceled")
              Exit Function
          Else:
              sItem = .SelectedItems(1)
              GoTo NextCode
          End If
      End With
  
  NextCode:
      GetFolder = sItem
      Set fldr = Nothing
  End Function
  </code></pre>
  
  <p>User selected BMW folder or Toyota<br>
  so <code>sItem = "T:\DOCUMENTATION\BMW"</code><br>
  or <code>sItem = "T:\DOCUMENTATION\TOYOTA"</code></p>
  
  <p>I need extract from string (<code>sItem</code>) which customer was selected (<code>BMW</code>, <code>Toyota</code>) and create a new extraction string <code>sItemCustomer</code></p>
  
  <p>so result will be <code>sItemCustomer = "BMW"</code> </p>
  
  <p>Could you help me to do that ?</p>