Slette / når der skal oprettes en mappe via VBA

Hej

Jeg havde lige et spørgsmål mere.

Når jeg beder den op at gemme en faktura med Firma A/S, opretter den ikke mappen da den ikke kan finde ud af det med / i A/S.

Findes der en måde man kan få den til at lave mappen så den hedder Firma AS i stedet for.

Jeg har denne program kode til at oprette dir og gemme fil med.

Koden er :.

Private Sub CommandButton1_Click()
Const xsti = "c:\Faktura\excelfakturaDB\"      'tilpasses
Dim nummer
Dim kunde
  On Error Resume Next
Range("A2:D55").PrintOut ' skal sættes aktiv når prg overdrages
  Range("B49") = " K O P I " ' skriver kopi i cellen og sættes aktiv ved lev.
  Range("A2:D55").PrintOut  ' sættes aktiv ved lev
  Range("B48") = ""  ' fjerner kopi igen  , sættes aktiv ved lev.
 
      CommandButton1.Visible = False
        CommandButton2.Visible = False
        CommandButton3.Visible = False

Application.DisplayAlerts = False
  ' Sheets("Faktura").Range("A1:D70").Select
    ActiveSheet.Copy
  Dim navn
    navn = ActiveWorkbook.Sheets(1).Cells(8, 2)
   
   
MkDir "c:\Faktura\excelfakturaDB\" & navn
 
  nummer = ActiveWorkbook.Sheets(1).Cells(8, 4)  'skal tilpasses
  kunde = ActiveWorkbook.Sheets(1).Cells(8, 2)
 
 
  ActiveWorkbook.SaveAs "c:\Faktura\excelfakturaDB\" & kunde & "\faktura_" & nummer & ".xls"

ActiveWorkbook.Application.DisplayAlerts = False

modDemo.BookCloseAllow


ThisWorkbook.Saved = True

ActiveWorkbook.Close

ThisWorkbook.Saved = True

CommandButton1.Visible = True
CommandButton2.Visible = True
CommandButton3.Visible = True


End sub