Dim Schueler as String
 
10 ' Sprungmarke
    If (Schueler = (InputBox("Bitte gib deinen vollständigen Namen hier ein!", _
                 "AutoSpeichern - Copyright (C) by Falk von Broen"))) = vbOK _
                 Then
 
 
 
                ' Prüft ob etwas eingegeben wurde
                If Schueler = "" Then
                                    MsgBox "Es wurde kein Name eingegeben!" & _
                                      "Bitte gib deinen Namen an!", _
                                            vbExclamation, "AutoSpeichern -" & _
                                            "Copyright (C) by Falk von Broen"
                                    GoTo 10
                                 Else
                                    GoTo 20 'Wenn Name eingegeben wurde dann 
                                    ' soll er zu 20 springen
                End If
 
20              ' ActiveDocument.SaveAs FileName:=Pfad & Schueler, 
' FileFormat:=wdFormatDocument 'Speichert das Dokument
 
    Else ' Anderenfalls wenn Abbrechen geklickt wurde
 
 
                MsgBox "Es wurde auf Abbrechen geklickt! Das Word-Dokument wird" & _
                  "nun geschlossen.", vbInformation, _
                       "AutoSpeichern - Copyright (C) by Falk von Broen"
                ActiveDocument.Close 'Dokument wird nach Hinweis einfach 
                ' geschlossen
 
    End If