<font color=red>' Hier die Fehlerbehandlung aktivieren!</font>
On Local Error Resume Next
xVariable$ = Application.ActiveDocument.Variables.Add(Name:="Geld").Value
If Err <> 0 Then
  MsgBox "Variable ""Geld"" existiert nicht!"
End If