Visual Basic

Dim result As New RightCategoryModel

Dim queryCmd As String
queryCmd = "SELECT RightCategoryId, Category, Description, IsDeleted FROM tblRightCategories WHERE RightCategoryId = " + CStr(Id)

Dim Db As Database
Dim rs As Recordset
Set Db = DBEngine(0)(0)
Set rs = Db.OpenRecordset(queryCmd)

If rs.RecordCount > 0 Then

    With result
        .Id = rs.Fields("RightCategoryId")
        .Category = rs.Fields("Category")
        .Description = rs.Fields("Description")
        .IsDeleted = rs.Fields("IsDeleted")
    End With

End If

set GetRightCategory = result

Imports System.Printing
Public Class Form1
Private Sub ConnectionStatusToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConnectionStatusToolStripMenuItem.Click
        If thPQueue.IsOffline = True Then
            MsgBox("The printer is currently offline.", vbInformation + vbOKOnly, "Printer Status")
        ElseIf thPQueue.IsWaiting Then
            MsgBox("The printer is on wait mode.", vbInformation + vbOKOnly, "Printer Status")
        ElseIf thPQueue.IsWarmingUp Then
            MsgBox("The printer is currently warming up. Please wait", vbInformation + vbOKOnly, "Printer Status")
        ElseIf thPQueue.IsNotAvailable Then
            MsgBox("The printer is currently not available.", vbInformation + vbOKOnly, "Printer Status")

        End If
    End Sub
End Class

=======================================
'Print heading line.
With .Font
     .Name = "Arial Unicode MS"
     .Size = 11
     .Underline = False
End With
        

.PrintLine Utf8BytesFromString(TextLine) 'Join$(ParseCSV(TextLine), vbTab)

=============================
Private Declare Function WideCharToMultiByte Lib "kernel32" ( _
    ByVal CodePage As Long, _
    ByVal dwFlags As Long, _
    ByVal lpWideCharStr As Long, _
    ByVal cchWideChar As Long, _
    ByVal lpMultiByteStr As Long, _
    ByVal cbMultiByte As Long, _
    ByVal lpDefaultChar As Long, _
    ByVal lpUsedDefaultChar As Long) As Long
    
' CodePage constant for UTF-8
Private Const CP_UTF8 = 65001

''' Return byte array with VBA "Unicode" string encoded in UTF-8
Public Function Utf8BytesFromString(strInput As String) As Byte()
    Dim nBytes As Long
    Dim abBuffer() As Byte
    ' Get length in bytes *including* terminating null
    nBytes = WideCharToMultiByte(CP_UTF8, 0&, ByVal StrPtr(strInput), -1, vbNull, 0&, 0&, 0&)
    ' We don't want the terminating null in our byte array, so ask for `nBytes-1` bytes
    ReDim abBuffer(nBytes - 2)  ' NB ReDim with one less byte than you need
    nBytes = WideCharToMultiByte(CP_UTF8, 0&, ByVal StrPtr(strInput), -1, ByVal VarPtr(abBuffer(0)), nBytes - 1, 0&, 0&)
    Utf8BytesFromString = abBuffer
End Function