基本はこれでいいのかな。フォントとか座標とか言いたいことはあるだろうけど
API直で使うのになれてないし調べるのがめんどくさい。

'オブジェクト名 Module
Option Explicit
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Sub Main()
　　Dim hdc As Long
　　Const l1 As String = "　　　 ∧,,∧　　"
　　Const l2 As String = "　　　ミ,,ﾟДﾟ彡 "
　　Const l3 As String = " 　 ﾐ　つ旦)~~　　 "
　　Const l4 As String = "　 〜と,,,~),,~)　 "
　　hdc = GetDC(0)
　　Call TextOut(hdc, 0, 0, l1, LenB(StrConv(l1, vbFromUnicode)))
　　Call TextOut(hdc, 0, 16, l2, LenB(StrConv(l2, vbFromUnicode)))
　　Call TextOut(hdc, 0, 32, l3, LenB(StrConv(l3, vbFromUnicode)))
　　Call TextOut(hdc, 0, 48, l4, LenB(StrConv(l4, vbFromUnicode)))
　　Call ReleaseDC(0, hdc)
End Sub