Private Declare Function TextOut Lib "gdi32" _
  Alias "TextOutW" ( _
  ByVal hDC As Long, _
  ByVal X As Long, _
  ByVal Y As Long, _
  ByVal lpString As String, _
  ByVal nCount As Long) As Long
 
Private Sub PrintW(hDC As Long, Text As String, X As Long, Y As Long)
TextOut hDC, X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY, StrConv( _
  Text, vbUnicode), Len(Text)
End Sub
 
Public Sub TestText()
PrintW Me.hDC, "Dies ist ein Text. " & ChrW(65411) & ". Blabla.", 0, 0
End Sub