Function Textlein(x,y,arg$,font,size=11)
For i=1 To Len(arg$)
char$ = Upper(Mid$(arg$,i,1))

     Select char$

      ; Ziffern
      Case "0": DrawImage font,(x+i*size)-size,y,0
      Case "1": DrawImage font,(x+i*size)-size,y,1
      Case "2": DrawImage font,(x+i*size)-size,y,2
      Case "3": DrawImage font,(x+i*size)-size,y,3
      Case "4": DrawImage font,(x+i*size)-size,y,4
      Case "5": DrawImage font,(x+i*size)-size,y,5
      Case "6": DrawImage font,(x+i*size)-size,y,6
      Case "7": DrawImage font,(x+i*size)-size,y,7
      Case "8": DrawImage font,(x+i*size)-size,y,8
      Case "9": DrawImage font,(x+i*size)-size,y,9

      ; Buchstaben
      Case "A": DrawImage font,(x+i*size)-size,y,10
      Case "B": DrawImage font,(x+i*size)-size,y,11
      Case "C": DrawImage font,(x+i*size)-size,y,12
      Case "D": DrawImage font,(x+i*size)-size,y,13
      Case "E": DrawImage font,(x+i*size)-size,y,14
      Case "F": DrawImage font,(x+i*size)-size,y,15
      ......
      ...

   End Select

Next
End Function