Error Calificador no válido en Visual Basic

Estoy trabajando un formulario muy sencillo en Visual Basic pero al momento de ejecutar me marca error el erro de "CALIFICADOR NO VÁLIDO". Mi código es el siguiente:

Private Sub aceptar_Click()

i = 0
Do While Range("Q6").Offset(i, 0) <> ""
i = i + 1
Loop

Dim gastot, gastoc, serviciosp, gastoso, subsidiosc, otrosc, pensionesj, gastoi, inversionf, subsidiosi, otrosinv As String

Range("Q6").Offset(i, 0) = serviciosp.Value

Range("R6").Offset(i, 0) = gastoso.Value

Range("S6").Offset(i, 0) = subsidiosc.Value

Range("T6").Offset(i, 0) = otrosc.Value

Range("U6").Offset(i, 0) = pensionesj.Value

Range("W6").Offset(i, 0) = inversionf.Value

Range("X6").Offset(i, 0) = subsidiosi.Value

Range("Y6").Offset(i, 0) = otrosinv.Value

gastoc = serviciosp + gastoso + subsidiosc + otrosc + pensionesj
Range("P6").Offset(i, 0) = gastoc

gastoi = inversionf + subsidiosi + otrosinv
Range("V6").Offset(i, 0) = gastoi

gastot = gastoc + gastoi
Range("O6").Offset(i, 0) = gastot

End Sub

Private Sub borrar_Click()

End Sub

Private Sub gastoso_Change()

End Sub

Private Sub inversionf_Change()

End Sub

Private Sub otrosc_Change()

End Sub

Private Sub otrosi_Change()

End Sub

Private Sub otrosinv_Change()

End Sub

Private Sub pensionesj_Change()

End Sub

Private Sub salir_Click()

Unload REGISTRO_PPEF16

End Sub

Private Sub serviciosp_Change()

End Sub

Private Sub subsidiosc_Change()

End Sub

Private Sub subsiodosi_Change()

End Sub