Private Sub Button1_Click
xui.MsgboxAsync("Hello world!", "B4X")
Dim s As String = $"
~Private Sub Button1_Click
xui.MsgboxAsync("Hello world!", "B4X")
~End Sub
"$
s = RemoveTildes(s)
Log(s)
End Sub
Private Sub RemoveTildes (s As String) As String
Return s.Replace(CRLF & "~", CRLF)
End Sub