1:
2:
3:

Private Sub cmdStartMacro_Click()
    Application.Run MacroName:=StartMakro
End Sub					

1:
2:
3:

Public Function StartMakro()
    Form.Show
End Function					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

Public name As String
Public age As Integer
Public town As String
Public class As String
Public school As String
Public ageCorrect As Boolean

Private Sub cmdTransfer_Click()
    ageCorrect = False

    'Werte der Textfelder in Variablen übergeben
    name = Me.tbName.Text
    town = Me.tbTown.Text
    class = Me.tbClass.Text
    school = Me.tbSchool.Text
    
    'Errorhandling
    On Error GoTo NumberError
    age = CInt(Me.tbAge.Text)
    
    ageCorrect = True
    
    'Abfangen von möglichen Fehleingaben
    If age < 0 Then
        Call MsgBox("Es wurde eine negative Zahl eingegeben!" & vbCrLf & "Es sind lediglich positive, ganze Zahlen erlaubt.", vbCritical + vbOKOnly, "Error - Negative number")
        Exit Sub
    ElseIf age > 116 Then
        Call MsgBox("Die Möglichkeit, dass Ihr Alter wirklich " & age & " beträgt, ist zu gering. Dies wird als ungültige Eingabe gewertet!", vbCritical + vbOKOnly, "Error - Too high number")
        Exit Sub
    End If
    
    ActiveDocument.Bookmarks("Name").Range.InsertAfter name
    ActiveDocument.Bookmarks("Age").Range.InsertAfter CStr(age)
    ActiveDocument.Bookmarks("Town").Range.InsertAfter town
    ActiveDocument.Bookmarks("Class").Range.InsertAfter class
    ActiveDocument.Bookmarks("NameOfSchool").Range.InsertAfter school
    
    Call MsgBox("Die Daten wurden erfolgreich in das Dokument geschrieben.", vbInformation, "Success - Write into document")
    
    Unload (Form)
NumberError: 'Entweder wurde nichts oder ungültige Zeichen eingegeben
    If ageCorrect = False Then
        Call MsgBox("Es wurde eine ungültige Eingabe festgestellt! Bitte versuchen Sie es erneut." & vbCrLf & "Es sind lediglich positive, ganze Zahlen erlaubt.", vbCritical + vbOKOnly, "Error - Invalid input")
        Exit Sub
    End If
End Sub