If sætning i VBA

du bør bruge case istedet. IF er til simple ting.
https://www.techonthenet.com/excel/formulas/case.php

lad mig prøve:

Select Case Points
  Case Is CHECK_STATUS="godkendt"
      Points = 1
  Case CHECK_STATUS="afvist"
      Points=Points-1
  Case CHECK_STATUS="ejchecket"
      Points=Points
  End Select

og anden del:

Select Case Month
  Case "Juni", "December"
      Points=Points+1
  Case "Maj", "November"
      Points=Points+2
  End Select

det kan også være det er nemmere at lave med SWITCH.
du skal jo udregne din karakterskala.. (kender jo ikke dit program)
https://www.techonthenet.com/excel/formulas/switch_ws.php

Cristopher: det er fint med eksperten, men jeg har et forslag:

Køb en VBA bog, og lav alle eksemplerne i den.
det vi medføre at du kan tingene i hovedet, og så bare lige slår op for hurtigt at checke, når du kommer i tvivl.

Til spørger:
Har du ikke lige spurgt om det ?

Indsæt denne kode i et modul. Du kan derefter bruge det direkte i regnearket som brugerdefineret funktion

Public Function ForventetKarakter(tilmeld_status As String, check_status As String, tilmeldingsdato As Date) As String
    Dim iNumberOfPoints As Integer
    iNumberOfPoints = 0
    If LCase(tilmeld_status) = "plads" Then iNumberOfPoints = iNumberOfPoints + 2
    If LCase(tilmeld_status) = "venteliste" Then iNumberOfPoints = iNumberOfPoints + 1
    If LCase(check_status) = "godkendt" Then iNumberOfPoints = iNumberOfPoints + 1
    If LCase(check_status) = "afvist" Then iNumberOfPoints = iNumberOfPoints - 1
    If Month(tilmeldingsdato) = 6 Or Month(tilmeldingsdato) = 12 Then iNumberOfPoints = iNumberOfPoints + 1
    If Month(tilmeldingsdato) = 5 Or Month(tilmeldingsdato) = 11 Then iNumberOfPoints = iNumberOfPoints + 2
   
    Select Case iNumberOfPoints
        Case 0: ForventetKarakter = "-3"
        Case 1: ForventetKarakter = "00"
        Case 2: ForventetKarakter = "02"
        Case 3: ForventetKarakter = "4"
        Case 4: ForventetKarakter = "7"
        Case 5: ForventetKarakter = "10"
        Case Else
    End Select
   
End Function