GetHorizontalAlignment in OO Basic

'Get HorizontalAlignment of SheetCell in open office basic
Private Function GetHorizontalAlignment(sheetCell As SheetCell) As String

Dim cellHalign,colFormat
cellHalign = com.sun.star.table.CellHoriJustify

Select Case sheetCell.HoriJustify
Case cellHalign.LEFT
    colFormat = colFormat +"l"
Case cellHalign.CENTER
    colFormat = colFormat + "c"
Case Else
    colFormat = colFormat + "r"
    End Select

GetHorizontalAlignment = colFormat
End Function