VBA Word

Hi
Jeg har lavet noget VBA i word og det køre også fint, men nu er der sket det at jeg får den her "Code for this procedure exceeds 64K when compiled"...

Jeg er med på hvad der er galt så nu vil jeg gerne have lavet den her om til en funktion.

If MBAD.Value = True Then
        NormalTemplate.AutoTextEntries("d016").Insert Where:=Selection.Range, RichText:=True
       
        NormalTemplate.AutoTextEntries("d036").Insert Where:=Selection.Range, RichText:=True
        If PosPriserJa.Value = True Then Application.Run "PosPriser"
             
        NormalTemplate.AutoTextEntries("d020").Insert Where:=Selection.Range, RichText:=True
        If PosPriserJa.Value = True Then Application.Run "PosPriser"
       
        NormalTemplate.AutoTextEntries("d025").Insert Where:=Selection.Range, RichText:=True
        If PosPriserJa.Value = True Then Application.Run "PosPriser"
       
        NormalTemplate.AutoTextEntries("d030").Insert Where:=Selection.Range, RichText:=True
        If PosPriserJa.Value = True Then Application.Run "PosPriser"
       
        NormalTemplate.AutoTextEntries("d017").Insert Where:=Selection.Range, RichText:=True
        If PosPriserJa.Value = True Then Application.Run "PosPriser"
       
        NormalTemplate.AutoTextEntries("d018").Insert Where:=Selection.Range, RichText:=True
        If PosPriserJa.Value = True Then Application.Run "PosPriser"
       
        NormalTemplate.AutoTextEntries("d019").Insert Where:=Selection.Range, RichText:=True
        If PosPriserJa.Value = True Then Application.Run "PosPriser"
    End If

som bliver kørt i min.
Sub LavTilbud_Click()
End Sub