Sub Button1_Click
Dim str As String
str=MyText
Log(str)
xui.MsgboxAsync(str, "B4X")
End Sub
Private Sub MyText As String
Dim sb As StringBuilder
sb.Initialize
sb.append("Accompany : Med Appointment" & CRLF)
sb.append("Client Condition : End of Care"& CRLF)
sb.append("House Keeping : Bathroom - Clean"& CRLF)
sb.append("Personal Care : Bath - Shower"& CRLF)
sb.append("Personal Care : Assist with Dressing"& CRLF)
sb.append("Personal Care : Walking - Supervised"& CRLF)
sb.append("Personal Care : Walking - Assist"& CRLF)
Return sb.ToString
End Sub