Is there perhaps a single statement that will do the job ?
Public Class Polis
Public Nr As String
Public Fonds As String
Public KBR As String
Public Land As String
Public Usplit As String
Public Tcode As String
Public Reels As Integer
Public BELBON(40) As Double
Public BELEBON(40) As Double
Public BELTBON(40) As Double
Public SPABTOTB(40) As Double
Public ABE1(40) As Double
Public ABDAT1(40) As String
Public BBONJR(40) As String
Public SPABcalc(40) As Double
Public BELEcalc(40) As Double
Public BELcalc(40) As Double
End Class