B4J Question XLUtils - Add comment to Cell [Solved]

Private Sub AddComment (sheet As XLSheetWriter, address As XLAddress, CommentText As String)
    Dim factory As JavaObject = sheet.Workbook.jWorkbook.RunMethod("getCreationHelper", Null)
    Dim cell As PoiCell = sheet.GetCell(address)
    Dim anchor As JavaObject = factory.RunMethod("createClientAnchor", Null)
    anchor.RunMethod("setCol1", Array(address.Col0Based + 1))
    anchor.RunMethod("setCol2", Array(address.Col0Based + 3))
    anchor.RunMethod("setRow1", Array(address.Row0Based + 1))
    anchor.RunMethod("setRow2", Array(address.Row0Based + 5))
    Dim drawing As JavaObject = sheet.PoiSheet.As(JavaObject).RunMethod("createDrawingPatriarch", Null)
    Dim Comment As JavaObject = drawing.RunMethod("createCellComment", Array(anchor))
    Comment.RunMethod("setString", Array(factory.RunMethod("createRichTextString", Array(CommentText))))
    cell.As(JavaObject).RunMethod("setCellComment", Array(Comment))
End Sub