'In Globals
Private NewName As String
Private Sub Back_Click
'send data back to Main
Dim sb As StringBuilder
sb.Initialize
sb.Append(P_Name.Text).Append(" (").Append(P_Sex.Text).Append(") ").Append(P_Age.Text)
NewName = sb.ToString
CallSub2(Main, "NewPatient", NewName)
Activity.Finish
End Sub