Speichern als .html (format)

Private Sub CommandButton1_Click()
start:
Dim laengename, speichername
'Dialog öffen: Datei Öffnen
Application.Dialogs(xlDialogOpen).Show
'Zuerst als Word-Document speichern indem dieDialogbox speichern unter angewählt wird
Application.Dialogs(xlDialogSaveAs).Show
'Dokument unter gleichem Namen aber als HTML speichern
laengename = Len(ActiveWorkbook.Name) - 4
speichername = Left$(ActiveWorkbook.Name, laengename)
With Application.Dialogs(xlDialogSaveAs)
.Format = xlHtml
.Name = speichername
.Execute
End With
If MsgBox("Möchten Sie weitere Tabellen umwandelne?", vbYesNo) = vbNo Then
Application.Quit
Else
GoTo start:
End If
End Sub