Sub tekst(x, y, h, rotatie, txtregel)
commando = "[TEXT " & x & "," & _
y & " " & _
h & " " & _
rotatie & " " & Chr(13) & _
txtregel & Chr(13) & _
"]"
Application.DDEExecute KanaalNr, commando
End Sub 'Einde tekst
Call verbinden
i = 1
Do
Call tekst(xVeld(i, 13), xVeld(i, 14), xVeld(i, 15), xVeld(i, 16), xVeld(i, 17))
i = i + 1
Loop Until xVeld(i, 1) = ""
Call verbreken