Android Question B4Xtable, select row and page

Sub GotoRow(RowIndex As Long)
    Dim rp As Long = tblDataBrowserTable.RowsPerPage
    Dim pnm As Long = RowIndex Mod rp
    Dim pn As Long = RowIndex / rp
    If pnm > 0 Then
        pn = pn +1
    End If
    tblDataBrowserTable.CurrentPage = pn
    TableStyle.CellClicked("", RowIndex)
End Sub