If you want to center the msgbox text there, add the line below to the CLASS module sub: Public Sub ShowMessage(BoxMessage As String)
B4X:
Public Sub ShowMessage(BoxMessage As String)
Dim su As StringUtils
Message.Text = BoxMessage
Message.Gravity=Gravity.CENTER_HORIZONTAL 'Add this line Mahares