Sub IP()
Dim position As Variant
Dim i As Integer
position = Array("A10", "H10", "D15", "B20")
For i = 0 To UBound(position)
Range(position(i)).Select
Pictures.Insert Cells(i + 1, "K").Value
Next
End Sub
TextBox28.Value = Application.Round((Aantal.Value * y), 1) / 1000
Dim tb28 As Double
tb28 = TextBox28.Value
'or
tb28 = CDbl(TextBox28.Value)